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The computer is an exciting contemporary piece of equipment. 
This fact alone explains some of the fascination that a computer 
invariably stirs up among students, but it doesn't explain all of it. 
The powerful motivational capabilities which the computer dem- 
onstrates in every school that installs one can only be explained 
by the way it is used. 

The computer is tireless. Unlike a student, it loves to do com- 
plex calculations. Separating theory from calculation in school 
assignments has always been a problem. Some of the most in- 
teresting and challenging concepts of math and science involve, 
unfortunately, an overwhelming amount of dull calculations. The 
student gets bogged down in the arithmetic and never gets ex- 
cited about the idea. Or, worse still, a less important concept is 
taught because its calculations come out even. The computer, by 
taking on all calculations and doing them quickly and accurately, 
opens up new possibilities for classroom study and student interest. 

The computer is immediate and unfailingly accurate. It does in 
seconds what people take minutes or hours to do. The speed of 
its responses make for powerful reinforcement. It challenges the 
student to think through the concepts as fast as it grinds through 
the calculations. 

The computer is anonymous. Real learning occurs when a stu- 
dent has an idea and tries it out. At the start, he isn't sure whether 
the idea is valid. Some students have no fear of being wrong and 
will tell the class their idea. Others are less willing to risk the 
ridicule of being wrong. The computer lets all students try out 
their ideas and gain confidence in them. It treats all students alike; 
it has no favorites. It waits for the slower user and bounds ahead 
quickly for the brighter student. With a computer, a student com- 
petes with his past achievements, not with other students. 

Above all else, the computer is challenging. Why is it that a 
student who quits on a homework problem after trying it once 
will work tenaciously to get a program running right? Partly, it's 
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the immediacy of the computer's response. Partly, it's the ease 
with which the student can change his program and try again. 
Partly, it's the fun of talking to -a machine and having it respond. 
But beyond all that, there is something about the close interaction 
between a user and a fast, willing, logical machine which is tre- 
mendously challenging. 

In all these ways and more, the computer stimulates the student, 
stretches his thinking, provides an immediate and pertinent appli- 
cation for skills learned in class. The impact on the teacher can 
be just as great as the impact on the student. Given motivated 
students, the dedicated teacher becomes even more dedicated. It 
is not unusual for a teacher to stay at school until five o'clock to 
give students more time on the computer. 

Computers have other uses around the school than instruction. 
For example, a computer can easily be programmed to grade tests, 
thereby saving precious teacher time, as well as providing more 
immediate feedback to students. Other tedious administrative 
chores such as attendance reporting, grade reporting, transcripts, 
and payroll can be performed on the computer. 

What will the computer mean in your school? Almost certainly 
it will mean that students learn and improve at a faster rate. Tests 
have shown that students who use the computer as part of their 
math class improve at four times the rate of those who are taught 
in the traditional way — not just honor students, not using a 
futuristic curriculum. A cross-section of students — black, white, 
Chicano, disadvantaged, rich, middle-class — in regular algebra 
classes improved four times as fast with the computer. The com- 
puter also means more thorough understanding coupled with tre- 
mendous student motivation. It means more dedicated teachers 
and an erasing of tedious administrative chores. It means con- 
temporary education for today's world. 

The computer does not replace the teacher. Nor does the simple 
existence of the computer make a poor student into a superior 
student. But in school after school, the computer is turning the 
bored, lethargic student into an involved, eager student. We at 
Digital believe that this is the vital, first step to better education. 
And we firmly believe that computers are for all kids, not for a 
few geniuses. 
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EDUSYSTEMS— SCHOOL COMPUTERS THAT 
MEET THE CHALLENGE 

It takes more than just hardware to make an effective school 
computer system. It takes a thoroughly tested combination of 
system components and instructional materials designed specif- 
ically for classroom use. Recognizing this fact, Digital Equipment 
Corporation has designed EduSystems — a complete line of com- 
puter systems tailored to the needs of schools and colleges. 

The basis of each EduSystem is a PDP-8/E computer, 1 a ter- 
minal, and a BASIC language processor. All EduSystems utilize 
the well-known computer language BASIC. BASIC programs are 
simple combinations of English words and decimal numbers. 
Students with no previous computer experience can be writing 
meaningful programs after as little as an hour of instruction. 

EduSystems are compact, trouble-free, and engineered for use 
in the busy school environment. Even the largest EduSystem can 
be installed and used right in the classroom. All systems can run 
completely unattended (i.e., no operator is necessary). Each Edu- 
System is designed to handle a large number of student users. 
Time-sharing allows up to 16 students and teachers to work at 
the computer simultaneously. Batch processing allows hundreds 
of student runs per day. 

EduSystems are expandable; as school and student needs in- 
crease, the configuration of the system may also increase. Starter 
systems (EduSystems 5, 10, 15, and 20) grow to be Intermediate 
Systems (EduSystems 25, 30, and 40); Intermediate Systems grow 



1 Certain EduSystems are also available on the PDP-11 computer. 
Write to the Educational Products Group, Building 5-5, Digital Equipment 
Corporation, Maynard, Mass. 01754, for more information. 



to be the Total System (EduSystem 50). The expansion modules 
can be installed right at the school. Expandable EduSystems are 
always the right size to meet a school's present demands. There is 
never the need to start out with too much computer or end up 
with too little. 

As the EduSystem computer expands, so does the BASIC lan- 
guage. Digital's Total Systems 2 offer the most powerful BASIC 
language processors of any computers in their class. In addition, 
EduSystem 50 provides time-shared FOCAL and FORTRAN-D 
language processors, a time-shared Assembly Language package, 
and system utility programs. 

The effectiveness of EduSystems as classroom tools is well 
proven. Hundreds of schools starting out with EduSystem 10 or 
EduSystem 20 have since expanded to an Intermediate System, or 
even a Total System, while many others are continuing to support 
excellent programs of computer education without expanding their 
facilities at all. 

USING THE EDUSYSTEM HANDBOOK 

The EduSystem Handbook provides a complete user's guide for 
each individual EduSystem and a self-instruction course in the 
use of the BASIC language in general. Most EduSystem users will 
need to read only two chapters of this handbook: Chapter 1, and 
the chapter concerning the EduSystem being used. 

Chapter 1 is a primer on the BASIC language, 3 allowing the 
user to teach himself the fundamentals of BASIC and to familiar- 
ize himself with the EduSystem terminal keyboard. Many examples 
and exercises are included to aid the user in discovering the ele- 
ments of the BASIC language. A user familiar with Chapter 1 can 
write simple BASIC programs and run them on any EduSystem. 

Once the user knows the fundamentals of BASIC, he refers to 
the chapter (chapters 2 through 9) concerning his particular 
EduSystem. The individual EduSystem chapters describe the fea- 
tures and extended capabilities of BASIC as it is used on the 
specific EduSystem. Each chapter also contains detailed operating 
instructions and error messages for the EduSystem. In addition, 



2 EduSystem 80 is a Total System available only on the PDP-11. 

3 Chapter 1 is derived from Teach Yourself BASIC, Volumes I and II 
published by Technica Education Corporation. 
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each chapter contains a table summarizing the BASIC language 
capabilities of the EduSystem being described. 

Chapter 9 provides a detailed description of EduSystem 50 capa- 
bilities, not only of the BASIC language but also of FOCAL, 
FORTRAN-D, PAL-D (the assembly language), the EduSystem 
50 Monitor, and all the system utility programs. The EduSystem 
50 user will also find much helpful information in Introduction to 
Programming and Programming Languages, Volumes 1 and 2 of 
the PDP-8 handbook series. 

The EduSystem Handbook is designed to serve as the primary 
guide for users of all EduSy stems. Users of each EduSystem will 
find many programming examples to facilitate their understanding 
of the system. A summary of the BASIC language capabilities of 
all Digital EduSystems is provided at the end of Chapter 1 . 

COMMON PROGRAMMING TERMS 

Such words as loop, jump, nesting, and array have special 
meanings to computer programmers. Familiarity with these terms 
is a prerequisite to learning the more advanced programming 
languages/The Index/Glossary at the end of this handbook defines 
many of the commonly used computer programming terms. 
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teach yourselF 
basic 

INTRODUCTION 

BASIC 1 is a conversational computer language which enables a 
human to carry on a "dialog" with a computer. We will "talk" to 
the computer by using a Teletype 2 like the one shown below. Your 
•terminal may be an alphanumeric cathode ray tube (CRT) 
DECterminal or a high-speed DECwriter. Operations with these 
terminals are, in most cases, identical with the Teletype, so we 
will only discuss the Teletype here. 




OFF 
—————— LINE Q LOCAL 

1 BASIC (Beginner's All-purpose Symbolic Instruction Code) is a trade- 
mark registered by the Trustees of Dartmouth College. 

2 Teletype is a registered trademark of the Teletype Corporation. 
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Using the Teletype, we type messages to the computer, request- 
ing it to carry out operations. The computer performs the required 
operations and prints the results on the same Teletype. If we 
make certain mistakes or if we ask the computer to do something 
it cannot do, it may print an error message. For example, if we type 

DO THE HOMEWORK ON PAGE 257 „™,, t „xti" x 

(and press the RETURN key) 

WHAT? 

the computer may respond by printing a message such as 

WHAT? 

The actual response depends on the EduSystem that you are 
using. 

If you wish to use the computer, you must: 

Learn what the computer can do and what the computer can- 
not do. 

Learn a language, such as BASIC, so that you can instruct 
the computer to do things within its capability. 
Communcate with the computer by means of the Teletype. 
We will begin by assuming that you know little or nothing about 
computers and will try to lead you through the following four 
levels of "know-how." 

1. You know nothing about computers. If you wish to use a 
computer to help you solve a problem, you describe the 
problem to Susan. Susan uses the computer and returns the 
answer to you. 

2. You can operate the computer (Teletype), using a pro- 
gram supplied by another person. The program, however, 
is gibberish to you — incomprehensible! 

3. You can read and understand programs written by others 
but are unable to write original programs of your own. 

4. Computerland is yours! You can invent your own original 
problem-solving procedures, write them in the BASIC lan- 
guage, check them out on the computer, correct them ("de- 
bug" them) if necessary, and obtain the desired results. 

This chapter is designed to help you learn the fundamentals of 
BASIC. Many examples and exercises are included to aid you in 
discovering the elements of the BASIC language. 
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Teletype Keyboard 

BASIC programs must be written using the symbols that appear 
r c wJ^ Pe kCyb0ard - A dia * ram ° f th * Retype keyboard 



is shown below: 



O00000OOOO0O© 
©OO©©©OO©0®@© 

0o@©0©oo©@0©0e 
6OO OOO0Q00 09 

I space 1 



No other symbols may be used. For example, the following 
symbols are commonly used in mathematics, but may not appear 
in a BASIC program because they are not on the keyboard. 



a P . % S -*- 



On the keyboard diagram, locate the keys with the following 
symbols : 



T PttArc- ABODE FGHI JKLMN 
J^eueib. OPQRSTUVWXYZ 



Digits: 12 3 4567890 

Special: , . / - 

To type any of the above symbols, simply press the appropriate 
key. For example, to type the letter S, press the key on which S 
appears. 
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Here is another copy of the keyboard chart so you won't have 
to turn the page back. 




od)©(D©©o(i)(b 
©©■©©©©oo©©®©© 

eo©©©©oo©©©©6© 

0©OOOO©©©©©0 



Locate the SHIFT keys. There are two of them, located at the 
left and right ends of the bottom row of keys. When we refer to a 
character that is typed while the SHIFT key is held down, we will 
show it as SHIFT/Character. For example, if we want you to type 
a <■- (back arrow) we will tell you to type SHIFT/O. 

We have drawn arrows to call your attention to the keys with 
the following special characters. 



()*■*- » + 



To type any of these characters, you must hold either SHIFT 
key down and press the key that has the desired character. 



The space bar looks like this: 



Use it to insert spaces as you type. 



Locate the RETURN key: 



Now you are ready to start "talking" to the computer. 
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GETTING ACQUAINTED WITH BASIC 

Imagine that we are seated at the teletype and that (perhaps 
with some help) we have attracted the attention of the computer. 
We will begin with some absurdly simple programs. 



If you try these programs, remember to press the 
RETURN key at the end of each line that you type. If 
you make a mistake, the computer may printan error 
message. Ignore it — retype the line. 



Here we go! 



SCR First, we type SCR and press the 

RETURN key. The computer 
SCRatches (erases) any old pro- 
gram in its memory. 

10 PRINT 7 Then we enter our BASIC program, 

99 EN D consisting of two statements. Each 

statement is on a separate line. The 
program is in the computer's mem- 
ory. 

R UN We tell the computer to RUN the 

program. It does and prints the re- 
sult, 7. 



7 



The BASIC program is shown again below. 



10 PRINT 7 
99 END 



It consists of two statements, a PRINT statement and an END 
statement. Each statement begins with a line number. Read on — 
it gets better. 
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Let's do something a little more exciting. 

SCR First, we SCRatch the preceding 

program. 

10 PRINT 3+4 And then enter a new program. 

99 END This program also has two state- 

ments. 

run We tell the computer to RUN the 

program. 

7 It does. The result is 7 since 3 + 

4 = 7. 

20 PRINT 3-4 Let's add three more statements. 

30 PRINT 3*4 We use 20, 30 and 40 as line num- 

40 PRINT 3/4 bers 

40 PRINT 3/4 

LIST Then we type LIST and press the 

RETURN key. 

The computer LISTs the program 
in its memory. Note that there are 
five statements and that they are 
listed in line number order. 

O.K., let's RUN the program. 

Here are the four results, one for 
each of the first four statements in 
the program. 

Exercise 1. Examine the preceding program, then write the sym- 
bol that is used to tell the computer to perform each of the follow- 
ing arithmetic operations. 

OPERATION SYMBOL 

Addition 

Subtraction 

Multiplication 

Division : 
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10 PRINT 


3+4 


20 PRINT 


3-4 


30 PRINT 


3*4 


40 PRINT 


3/4 


99 END 




RUN 




7 




-1 




12 




.75 





Remember these things. 

WE TYPE TO TELL THE COMPUTER TO 

SCRatch (erase) the program in memory. 
RUN the program in memory. 
LIST the program in memory. 



SCR 
RUN 
LIST 

The statement 

10 PRINT 3+4 



tells the computer to evaluate the numerical expression 3 + 4 and 
print the result. In this case, the result is 7. 
The statement 

30 PRINT 3*4 

tells the computer to evaluate the numerical expression 3*4 (3 
times 4) and print the result. This time, the result is 12. 

The statement 
99 END 

simply marks the end of the program. Every BASIC program 
must have an END statement. 

Each statement begins with a line number. A line number may 
be any counting number in the range: 

1 ^ line number < 2046 
Larger EduSystems permit line numbers to 9999, but 2046 is 
plenty for most programs. 

Instead of numbering statements with consecutive counting num- 
bers (12 3, etc.) we use 10, 20, 30 and so on. This gives us 
room to insert a new statement between two old statements. For 
example, if we had already entered a program using 10, 20, 3U, 
40 and 99 as line numbers, we could insert a statement between 
statement 20 and statement 30 by using 25 as the line number 
of the new statement. 
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Exercise 2. Do not use the computer to do this exercise. Instead 
pretend that you are the computer. We have entered the following 
program into your memory and told you to RUN the program 
Do it. 



20 print \ VI We entered this program, consisting 

30 PRINT 12*3 ° f five statement s> into your mem- 

40 PRINT 12/3 ° ry " 

Hn mD aK -> computer, RUN the program. 

Indicate your answer by filling in 
the blanks. 



Exercise 3. You are still the compuer. We will add a statement 
to the program we entered in the preceding exercise. 

50 PRINT 2*3+4 We add this statement. 

IT CT 

LIST the program in your memory. 



RUN Now RUN the program. 
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Numerical Expressions 

The computer prints the value of a numerical expression as a 
decimal numeral. The following table shows examples of computer- 
printed values of numerical expressions. 



EXPRESSION VALUE 



REMARKS 



3.14 


3.14 


-123 


-123 


2+3 + 4 


9 


5-3 + 4 


6 


2*3*4 


24 


2*3/4 


1.5 


2*3+4 


10 


2 + 3*4 


14 


35 - 2*3 


29 


1/2 + 3 


3.5 


2 + 3/4 


2.75 


24/2*3 


36 


1/(2 + 3) 


.2 


(2 + 3)/4 


1.25 


24/(2*3) 


4 


1/3 


.3333333 


2/3 


.6666667 


100/3 


33.33333 


200/3 


66.66667 



A decimal numeral is a 
decimal numeral 

2+3+4=5+4=9 

5-3 + 4 = 2 + 4 = 6 NOTE1. 

2*3*4=6*4 = 24 

2*3/4 = 6/4 = 1.5 

2*3 + 4 = 6 + 4= 10 

2 + 3*4 = 2+12=14 

35 - 2*3 = 35 - 6 = 29 NOTE 2. 

1/2 + 3 = .5 + 3 = 3.5 

2 + 3/4 = 2 + .75 = 2.75 

24/2*3 = 12*3 = 36 

1/(2 + 3) =1/5 = .2 

■(2 + 3)74 = 5/4=1.25 NOTE 3. 

24/(2*3) =24/6=4 



Value rounded to seven 
significant digits. 



NOTES 

1. The operations are done in left to right 
order. 

2. All multiplications and/ or divisions are done 
before any additions and/ or subtractions. 
To evaluate 24/2*3 the computer first div- 
ides 24 by 2, obtaining 12. Then it multiplies 
12 by 3, obtaining 36. 

3. We use parentheses to modify the order in 
which operations are done. 
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Your turn — but let someone else use the computer while you 
work the following exercises. 

Exercise 4. You are the guest star on the television program 
"Computer for a Day." To win the grand prize (7 microbucks) 
you must evaluate each of the following numerical expressions. Go! 

(1) 3*4 + 5 (2) 3 + 4*5 

(3) 3/4 + 5 (4) 3 + 4/5 

(5) 3*4/5 (6) 3/4*5 



(7) 3*(4 + 5) (8) 3/(4*5) 

(9) 3/(4 + 5) (10) 3/4/5. _ 



Use your computer to check the answers. Did you win the prize? 
If not you can still win by finding a computer that evaluates nu- 
merical expressions the same way you do. Good luck! 

Exercise 5. Complete the following table showing BASIC ex- 
pressions that correspond to given mathematical expressions. 



MATHEMATICAL EXPRESSION 


BASIC EXPRESSION 




(1)2x3+4^-5 


2*3 +4/5 




(2) 37(43 - 19) 


37*(43- 19) 




(3) 3.14 X 5x5 

(4) 2 










3 + 4 






(5) 73 - 25 






29 + 53 







Back to the computer to check your answers. 
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The PRINT Statement 

Previously, we used PRINT statements of the following form: 

n PRINT e 

where n = line number 

e = numerical expression 

For example: 

10 PRINT 3+4 



line number ■ 
PRINT 



numerical expression 



A PRINT statement of this form directs the computer to com- 
pute the value (simplest form) of the numerical expression e and 
to print the result on the Teletype. 

The following program illustrates a PRINT statement that has 
more than one numerical expression. 



SCR 



As usual, we first SCRatch any left- 
over program. 



10 PRINT 3+4,3-4,3*4,3/4 Next, we enter the program. The 
99 END PRINT statement includes, four ex- 

pressions. 



RUN 
7 



-1 



Let's RUN the program. 
12 .75 



Since the PRINT statement has four expressions, the computer 
prints four results. 
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A more general form of the PRINT statement is shown below. 



n PRINT - list of expressions 



For example, 



10 PRINT 3+4,3-4,3*4,3/4 



line number 



J t 



PRINT 



list of expressions ■ 



Remember these things: 

• A PRINT statement can contain more than one expression. 

• One result is printed for each expression in a PRINT state- 
ment. 

• If a PRINT statement contains more than one expression, 
then the expressions must be separated by commas. 

• Up to five (5) results per line are printed. If there are more 
than five expressions in the PRINT statement, additional 
results are automatically printed on the next line. 

For example, the statement 

10 PRINT 3+4,3-4,3*4,3/4,3*4*5,3*4/5,3/4*5 

will cause the computer to print the following results. 



RUN 

7 
2.4 



-1 
3.75 



12 



75 



60 
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Exercise 6. Do not use the computer for this exercise. Instead^ 
pretend that you are the computer and RUN each of the follow- 
ing programs. 



10 PRINT 1, 2, 3*4, 5, 6, 7,8,9, 10, 1 1, 12 
99 END 

RUN ■ . \. 



10 PRINT 1*2,2*3,3*4,4*5,5*6,6*7,7*8,8*9 
99 END 

RUN 



Exercise 7. Each new PRINT statement causes a new line to 
be printed. RUN this program. 



10 


PRINT 


1, 1*1 


20 


PRINT 


2, 2*2 


30 


PRINT 


3, 3*3 


40 


PRINT 


4, 4*4 


50 


PRINT 


5, 5*5 


60 


PRINT 


6, 6*6 


70 
99 


PRINT 
END 


7, 7*7 



Once again . . . 

Each new PRINT statement 
causes a new line to be printed. 
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If we use a semicolon (;) instead of a comma to separate ex- 
pressions, the results will be packed more closely together. For 
example, try this one on your computer. 

SCR Goodbye, old program! 

10 PRINT 3+4; 3-4; 3*4? 3/4 Note the semicolons (;) . 
99 END 

Watch the spacing in the results be- 
low. 

run The results are "packed" more 

7-1 12 • 7 5 closely together than if we had 

used commas. 

When we use semicolons to separate expressions, the computer 
will print up to 17 results per line. The actual number, however, 
depends on the number of digits that it must print. For example, 

10 print i;a;3;4;5; 6; 7;s;9J 10; 1 1; 12; 13; 14; is; 1 6; 17; ir; 19 

99 END 
RUN 

1 2 34 5 6 7 8 9 10 11 18 13 14 15 16 17 
18 19 

The first 17 results were printed on 
the first line — the 18th result on 
the second line. 

Let's see what happens as the numbers get larger. 



10 PRINT 1M2; 123; 1234; 12345? 123456; 1234567 
99 END 
RUN 
1 12 123 1234 12345 123466 1.234567E+06 



This is a floating point numeral. We describe floating point nu- 
merals in the next section. 
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Remember these things: 

• If a PRINT expression contains more than one expression, 
then the expressions must be separated by commas (,) or 
semicolons (;). 

• If commas are used for spacing, up to five results per line 
are printed. If semicolons are used, the results are "packed" 
more closely together. The actual spacing depends on the 
size of the numbers involved. 

• If you want to find out more about spacing — experiment! 



EXPERIMENT! 



Floating Point Numerals 

Floating point notation is similar to scientific notation. The com- 
puter does it this way. 



10 PRINT 


10 


20 PRINT 


100 


30 PRINT 


1000 


40 PRINT 


10000 


50 PRINT 


100000 


60 PRINT 


1000000 


70 PRINT 


10000000 


99 END 




RUN 




10 




100 




1000 




10000 




100000 




1.000000E+06 


1.000000E+07 



In the program each number is ex- 
pressed in "standard" or "common" 
notation. 



The numerals are printed in stan- 
dard notation, exactly as they are 
written in the PRINT statements. 



But these are printed as floating 
point numerals. 
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The following examples show the same number expressed in 
"standard" notation, scientific notation and floating point notation. 
If a number is larger than 6 digits, its numeral will be printed in 
floating point notation. 



STANDARD 


SCIENTIFIC 


FLOATING 


NOTATION 


NOTATION 


POINT 


1000000 


l x io« 


1.000000E + 06 


10000000 


1 X 10* 


1.000000E + 07 


100000000 


1 X 10 8 


1.000000E + 08 


1000000000000 


1 X 10 12 


1.000000E+ 12 



Let's see how BASIC handles small numbers. 



10 print .1 

20 PRINT .001 

30 PRINT .000000001 

99 END 

RUN 

.1 

1.000000E-03 

1.000000E-09 



If a number has more than 2 deci- 
mal places, its numeral is printed 
in floating point notation. 



Exercise 8. Complete the following table showing the numerals 
in scientific notation and standard notation corresponding to nu- 
merals given in floating point notation as they might be printed 
by the computer. 



FLOATING 


SCIENTIFIC 


STANDARD 


POINT 


NOTATION 


NOTATION 


1.00000E + 09 


1 X 10 9 


1000000000 


1.00000E>-09 


i x io- 9 


.000000001 


2.00000E + 09 


2X 10 9 


2000000000 


2.00000E - 08 


2X IO 8 




3.00000E + 12 






6.02000E + 23 


6.02 X 10 23 




1.23456E- 16 




.0000000000000001 23456 
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Printing Messages 

The PRINT statement in the following program directs the com- 
puter to print a message. 



The message is enclosed in quotation marks. 

10 PRINT "I LIKE PEOPLE" 
99 END 

RUN Let's RUN the program. 



I like people The computer types the message. 

Here is another example. 



10 PRINT "GOOD MORNING" 

99 END 

RUN 

GOOD MORNING 



Unfortunately, if you RUN this program in the afternoon, the 
computer will still print 



GOOD MORNING 



The next example illustrates the difference between a numerical 
expression and the value of a numerical expression. 



10 PRINT "3+4»",3+4 

9*9 END t,, . . 

RUN This program directs the computer 

3+/,b 7 to print the message "3 -f- 4 =" 

followed by the value of 3 + 4. 

READY. 
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If you didn't like the spacing in the printed results, you can use 
a semicolon instead of a comma to control the spacing. 



10 PRINT "3+4="|3+4 
99 END 

RUN Semicolon spacing. 

3+4=7 



Exercise 9. You be the computer. RUN the following program 
without using the computer — you do the work and fill in the 
blanks. 



10 PRINT "IF I WERE A COMPUTER," 

20 PRINT "I'D DO ARITHMETIC LIKE THIS" 

30 PRINT "3+4«";3+4 

40 PRINT "3-4-"; 3-4 

50 PRINT "3*4-"; 3*4 

60 PRINT "3/4-"; 3/4 

99 END 

RUN 

IF I WERE A COMPUTER* 

I'D DO ARITHMETIC LIKE THIS 



Your work is here. 



REMEMBER THIS: Anything enclosed in quotation marks in 

a PRINT statement is printed exactly as 
it appears. No arithmetic is performed. 
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Exponents — Computing a Power of a Number 

The following program illustrates a new idea — computing a 
power of a number. 



10 PRINT "5*5«5t2»"J5t2 . _ . . ,. . „. 

20 PRINT "2*2*2«2t3« M ;2't3 * ne r is on the bottom row of keys. 

30 PRINT * , 3*3*3«3»4*"J3t/i Hold the SHIFT down when you 

99 END wish to type f. 

RU N „,,,,, 

5*5=5 *2« 25 We use tne t key when we want to 

2*2*2-2 13» 8 tell the computer to compute a 

3*3*3-3*4* 81 power of a number. 



In math, we write 2 3 , but in BASIC we write 2 t 3. Remember 
— BASIC notation is not math notation even though there are 
similarities. 

Here are some examples showing the values of expressions in 
which the t is used. 



EXPRESSION VALUE REMARKS 



2f5 32 2f5 = 2*2*2*2*2 = 32 

3?2. + 4t2 25 3t2 + 4f2 = 9 + 16 = 25 

(2 + 3)f4 625 (2 + 3)f4 = 514=5*5*5*5 = 625 



Exercise 10. Write the value of each expression. 



EXPRESSION VALUE YOUR REMARKS 



lf3 
7|2 

3f3 
4f5 



Unless parentheses are used to change the order, the computer 
does powers first, then multiplications and divisions, then additions 
and subtractions. (See Note 2, page 1-9.) 
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GATHERING SPEED 

Variables 

In mathematics, we have great freedom in selecting symbols to 
use as variables. We use the letters A — Z of our alphabet, the 
letters of the Greek alphabet and, in fact, any symbol that we may 
"invent" for this purpose. In BASIC, however, we must restrict 
you in your choice of symbols. For now, we impose this rule: 



A BASIC variable may be any letter of the 
alphabet. That is, any of the following may be 
used as a variable: 

ABCDEFGHIJKLM 
NOPQRSTUVWXYZ 



In BASIC, each variable refers to a distinct location in the com- 
puter's memory. It may help you to think of the computer's mem- 
ory as a set of 26 boxes, labeled A through Z, like this: 



A 


H 


O 


V 


B 


I 


P 


w 


C 


J 


Q 
R 


X 


D 


K 


Y 


E 


L 


S 


z 


F 


M 


T 




G 


N 


U 





We call these boxes locations. Each location can hold one num- 
ber at any one time. This number is the value of the variable 
corresponding to the location. 

Exercise 11. LET A = 3. In other words, take pencil in hand and 
write the numeral "3" in the box labeled "A." Then do the follow- 
ing in similar fashion : 

(1) LET B = 4 (2) LET P = 3.14 (3) LET Z = -l 
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The following example shows how we assign a value to a variable 
in a BASIC program. 



10 LET A«3 
20 PRINT A 
99 END 
RUN 
3 



Assign the value 3 to the variable 
A. Print the value of A. 

And here it is (the value of A, that 
is). 



A more general form of the LET statement is shown below. 



n LET v = 



where 



n = line number 

v = BASIC variable 

e = numerical expression 



For example, 



10 LET 5*8*3+4*5 



Here is some additional evidence. You may wish to RUN the 
following program. 



SCR 

10 LET A«3 
20 LET B«4 
30 LET 03*4 
40 LET D-3-4 
50 LET E«3*4 
60 LET F-3/4 
70 LET G-3t4 

80 print a;b;cjd;e;f;g 

99 END 
RUN^ 
3^4^ 7-1 12 .75 81 




Don't forget to SCRatch! 



(Note the semicolons.) 
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Let's see what happens — blow by blow---as the computer RUNs 
the program. Below is a trace of the program from the preceding 
page. The trace shows the value of each variable after the state- 
ment on the same line has been carried out by the computer. 



STATEMENT 


A 


B 


C D 


> E 


F 


G 


10 LET A = 3 


3 












20 LET B = 4 


3 


4 










30 LET C = 3 + 4 


3 


4 


7 








40 LET D = 3 - 4 


3 


4 


7 -1 








50 LET E = 3*4 


3 


4 


7 -1 


[ 12 






60 LET F =3/4 


3 


4 


7 -1 


I 12 


.75 




70 LET G = 3 t 4 


3 


4 


7 -1 


L 12 


.75 


81 


80 PRINT A;B;C;D;E;F;G 


3 


4 


7 -] 


L 12 


.75 


81 


99 END 


3 


4 


7 -1 


L 12 


.75 


81 



The trace is an important idea — from now on, we will depend 
on it. Therefore, you had better learn how to ( 1 ) read a trace and 
(2) do a trace. 

Exercise 12. Trace the following program. 



STATEMENT 



R 



10 LET P = 5 

20 LET Q = -123 

30 LET R = 57.3 

40 LET S = 2*3 + 4*5 

50 PRINT P, Q, R, S 

99 END 
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The LET statement directs the computer to compute the value 
of the expression to the right of the "=" symbol and assign this 
value to the variable that appears to the left of the "=" symbol. 
This value replaces any previous value of the variable. For example, 



STATEMENT 


A 


REMARKS 


10 LET A = 1 


1 


Assign the value 1 to A. 


15 PRINT A 


1 


Print the current value of A. 


20 LET A =■ 2 


2 


Assign the value 2 to A. 


25 PRINT A 


2 


Print the current value of A . 


30 LET A = 3 


3 


Assign the value 3 to A. 


35 PRINT A 


3 


Print the current value of A . 


99 END 


3 





If we RUN the program above, we obtain the following results. 



RUN 
l 
8 
3 



Exercise 13. Without using the computer, RUN each of the fol- 
lowing programs. (Fill in the blanks.) 



10 LET X-3 
20 LET X«5 
30 LET X»7 
40 PRINT X 
99 END 
RUN 



10 LET X«3 
20 LET Y«5 
30 LET Z*7 

40 print x;y;z 

99 END 
RUN 



P.S. 

On EduSystems, you don't have to type the word LET in an ex- 
pression. In other words, 

10 A = 1 is equivalent to 10 LET A = 1 

To be consistent with Dartmouth BASIC, we'll use LET in this 
manual but you don't have to on your EduSystem. 
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Variable Expressions 

A variable expression is an expression that contains a variable. 
For example, the following are variable expressions: 



A-B 2*X P/Q -C A*(B + G) 



A/B + C/D 3.14*RT2. 



We evaluate a variable expression by assigning values to its vari- 
able or variables and carrying out the indicated operations. 



For example, A*B is a variable expression with variables A and 
B. If A = 3 and B = 4, then the value of A*B is 12. But if 
A = -7 and B = 5, then the value of A*B is -35/ 



VARIABLE 
EXPRESSION 


VALUE(S) OF 
VARIABLE(S) 


VALUE OF 
EXPRESSION 


A 


A - 3 

A = -123 


3 
-123 


A-B 


A = 12 and B = 7 


5 




A = 3 and B = 4 


-1 


2*X 


A- = 3.14 
X = -6 


6.28 
-12 


P/Q 


P = 35and0 = 5 
P = 2 and Q = 3 


7 
.666667 


-C 


C - 8 


-8 




C = 







C= -12 


12 


A*(B + C) 


A = 3,B = 4, C = 5 


27 


3.14*R|2 


K = 3 


28.26 
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Each of the following programs directs the computer to evaluate 
one or more variable expressions and print the result or results. 
We use LET statements to assign values to variables. 



10 LET A»3 10 LET A«3 

20 LET B»4 20 LET B-4 

30 PRINT A+B 30 PRINT A*B 

99 END 99 END 

RUN RUN 

7 12 

Exercise 14. Without using the computer, complete each RUN 
by filling the blank with the result. 

10 LET A-3 10 LET A»3 

20 LET B»4 20 LET B»4 

30 PRINT A-B 30 PRINT A/B 

99 END 99 END 

RUN RUN 



Exercise 15. The following program illustrates the use of variable 
expressions. Trace the program by filling in the blanks under the 
headings "A" through "G." 

PROGRAM A B C D E F G 

10 LET A = 3 
20LETB = 4 
30LETC=A + B 
40LETD = A-B 
50LETE = A*B 
60 LET F = A/B 
70LETG = AtB 
80 PRINT A;B;C;D;E;F;G 
99 END 
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FEEDING THE BEAST 

The INPUT Statement 

In this section, we introduce a statement called the INPUT state- 
ment. But first, let's solve a problem that may point up the need 
for the INPUT statement. 

Problem. The area A of a circle of radius R is given by the 
formula: 



A-ttR 2 



where w = 3.14 



We want to use the computer to compute the areas of three dif- 
ferent circles. These circles have radii 

R = 2, R — 3, and R = 8. 

Here is a step-by-step description of how we could use a com- 
puter to solve the problem. 



SCR 

10 LET R-2 

20 PRINT R#3.i4*Rt2 

99 END 

RUN 

2 12.56 



First, SCRatch any old program. 

Here is our program. It will work 
for R = 2. 

Let's RUN it. 

For R = 2, the area is 12.56. 



10 LET R-3 




RUN 
3 


28*26 


10 LET R»8 




RUN 




8 


200.96 



Do NOT type SCR. Instead, enter 
a new Statement 10. 

For R = 3, A = 28.26. 

Again — change Statement 10. 

And RUN the program. 

For R = 8, A = 200.96. 
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We can reduce the amount of work required to solve the prob- 
lem on the preceding page by using the INPUT statement. Here 
is a program that uses an INPUT statement to permit input of a 
value of R. 

We enter this program. 
10 INPUT R y 

20 PRINT R#3.14*Rt2 And tell the computer to RUN it. 
99 END 

RUN The computer types a question 

? mark and stops. 

For a second, we sit and contemplate that question mark. What 
does the computer want? Of course! It wants a value for R. So 
we enter 2 as the value of R and press the RETURN key. The 
computer then prints 



2 12.56 

O.K., here is a RUN for R = 2, R = 3 and R = 8. Try this one 
on your computer. 

SCR SCRatch any previous program. 

10 INPUT R ' 

20 PRINT R,3.14*RT2 Enter the program. 

99 END 

RUN RUN the program. 

?2 Enter 2 and press RETURN. 

2 12.56 For R - 2, A = 12.56. 

RUN RUN the program again. 

?3 Enter 3 and press RETURN. 

3 28.26 For R = 3, A = 28.26. 

RUN RUN the program again. 

?8 Enter 8 and press RETURN. 

8 200.96 For R = 8, A = 200.96. 
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The general form of the INPUT statement is 

line number INPUT list of variables 
For example, 

10 INPUT A,B,C 

line number 

INPUT 

list of variables 

Note that only the variables in the list are separated by commas. 
There is no comma following the word "INPUT" and there is no 
comma after the last variable in the list. 

The INPUT statement directs the computer to type a question 
mark and then stop and wait. Now you must understand that 
computers are very patient — if you don't cooperate, the computer 
will simply wait — and wait — and wait. To prevent this from hap- 
pening, all you have to do is feed the computer — it's hungry — it 
wants data. 

Remember these things : 

• The INPUT statement causes the computer to type a ques- 
tion mark. 

• When the question mark appears, the operator must enter 
one value for each variable in the INPUT statement. The 
values are entered in the same left to right order as the vari- 
ables appear in the INPUT statement. 

• Don't forget to type commas between values. 

» After entering the last number, press the RETURN key. If 
you have done everything correctly, the computer will pro- 
ceed. 

Here is another example. 

17 INPUT A#B#C „. , , 1.1 

23 PRINT A*<B+C) Since there are three variables, we 

99 END must enter three values. 

?3 N 4 5 If A = 3, B = 4, C = 5, then 

27 A*(B + C) =27. 
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Exercise 16. There is something wrong with each INPUT state- 
ment shown below. For each one, circle the mistake and write the 
reason. 



INCORRECT STATEMENT , REASON 



10 INPUT ,A3,C, 
20 INPUT X,Y, 
30 IMPUT P,Q,R,S,T 
40 INPUT A+B 
50 INPUT I;J;K 
60 INPUT AA,BB, 
70 INPUT ABC 



Exercise 17. We ran two simple programs. Here they are but 
some things are missing. Complete each RUN by filling in the 
blanks. 



10 


INPUT 


A, 


-B, 


,C 


w 


PHI NT 


A 






30 


PRINT 


B, 


► c 




99 


END 








RUN 








7-2,-3,-4 















12 


INPUT U, 


.v,w, 


X 


25 


PRINT U« 


,u+v 




36 


PRINT W, 


,w*x 




99 


END 






RUN 






? 








7 


12 




3 


45 
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The GO TO Statement 

The following program appeared on page 1-27. 



10 INPUT R 

20 PRINT R*3.l4*Rt2 

99 END 



When we used it, we had to type RUN for each value of R. (See 
page 1-27.) To eliminate the need to type RUN for each new 
value of R, we add the following GO TO statement. 



30 GO TO 10 (This directs the computer to "GO 

TO Statement 10.") 



Here is a RUN of the modified program. Try it on your com- 
puter. 

SCR First, let's SCRatch. 

10 INPUT R Then enter the program. 

20 PRINT R,3.U*RT2 

Here is our GO TO statement. 

Now let's RUN the program. 

Each time after printing the results 
the computer does a GO TO 10 
and automatically restarts at the 
INPUT statement. 

How do we tell the computer we 
are finished? Hold CTRL down, 
press C, and release. The computer 
will stop. 



30 


GO 


TO 10 


99 


END 


RUN 






?2 






2 




12.56 


?3 






3 




28.26 


?8 






8 




200.96 


? 
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The GO TO statement has the general form 

line number GO TO line number 

The GO TO statement directs the com- 
puter to GO TO the statement that has 
this - 



30 GO TO 10 



For example: 
line number 
GOTO 
line number 



Exercise 18. Do not use the computer to answer this. If you were 
a computer and you came to the following statement, what would 
you do? 

45 GO TO 45 



Exercise 19. Complete the following program to convert from 
degrees Centigrade to degrees Fahrenheit. 



In math notation, the formula is F 



10 INPUT 


C 


20 LET F* 


i 


30 PRINT 


C*F 


40 PRINT 




50 GO TO 




99 END 




RUN 




?0 









?100 




100 




?37 




37 





32 



212 



77 



4- C + 32 
5 

(You write the formula — in 
BASIC.) 

(GO TO where?) 



If C - 0, then F = 32. 
If C= 100, then F= 212. 
(Hint: Body temperature) 

Give F, what is C? 
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READ and DATA Statements 

Whenever possible, we prefer providing data (values of vari- 
ables) by means of the READ and DATA statements. The follow- 
ing program is a modification of our "Area of a Circle" friend on 
page 1-26. 



10 READ R 

20 PRINT R#3.14*Rt2 

30 DATA 2«3«6 



This is a READ statement. 



This is a DATA statement. 



40 GO TO 


10 




99 END 






RUN 






2 




12.56 


3 




28*26 


8 




200.96 



DATA ERROR AT LINE 10 



Here are the results. On each line, 
the value of R is on the left and 
the value of the area is on the right. 



This message may be different or 
even omitted. It simply means that 
the computer has READ all the 
DATA. 



The statement 



10 READ R 

tells the computer to read one value of R from the list of values in 
the DATA statement. Each time the READ statement is executed, 
the computer reads the next value from the DATA statement. In 
other words, the computer remembers what values have already 
been read. 



If there is no more data to be read in the DATA statement, the 
computer stops automatically. 
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Here is another example using the READ and DATA statements. 

Four students named Frodo, Sam, Gandalf, and Strider have 
each taken three quizzes. Their scores are: 



STUDENT FIRST SCORE SECOND SCORE THIRD SCORE 



Frodo 


66 


Sam 


91 


Gandalf 


78 


Strider 


80 



81 


75 


88 


95 


78 


62 


83 


86 



We have written a program to compute the arithmetic mean 
(average) of three scores and have run it for the above data. 



10 READ X*Y*Z 
20 LET M«<X+Y+Z>/3 
30 PRINT X*Y*Z*M 
40 GO TO 10 



We use X, Y, Z to denote the first, 
second and third scores. 



90 DATA 


66*81*75 


Frodo's scores. 




91 DATA 


91*88*95 


Sam's scores. 




92 DATA 


78*78*62 


Gandalf's scores.. 




93 DATA 


80*83*86 


Stridor's scores. 




99 END 








RUN 








66 


81 


75 


74 


91 


88 


95 


91.33333 


78 


78 


62 


72.66667 


80 


83 


86 


83 



DATA ERROR AT LINE 10 



The averages of the three scores are in this column/ 



DATA statements may be placed anywhere in the program. 
They must, however, have line numbers smaller than the line num- 
ber of the END statement. 
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The general form of the READ statement is 



line number READ list of variables 



For example : 



10 READ X, Y, Z 



line number 

READ 

list of variables 



The variables 


are 


separated 


by 


commas. 





Exercise 20. There is probably' 5 something wrong with each of 
the following READ statements. For each one, circle the mistake 
(if possible) and write the reason. 



INCORRECT STATEMENT 



REASON 



10 READ, A,B,C 
20 READ X,Y 
30 REED P,Q,R,S,T 
40 READ A+B 
50 READ I;J;K 
60 READ AA,BB 
70 READ ABC 
80 READ 3.14 



The READ statement directs the computer to read one value 
from the DATA statement for each variable in the READ state- 
ment. If there are two or more DATA statements in a program, 
the values in the statement with the smallest line number are used 
first, then the data in the statement with the next smallest line 
number and so on. 



a Depends on the system . . . EXPERIMENT! 
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The general form of the DATA statement is: 

line number DATA list of numerals 
For example: 90 DATA 66,81,75 

J t t 



line number- 
DATA " 



list of numerals 



Expressions such as 
2 + 3 are not allowed 
in the list. 



Exercise 21. There is something wrong with each of the follow- 
ing DATA statements. For each one, circle the mistake and write 
the reason. 



INCORRECT STATEMENT 



REASON 



10 DATE 1,2, 3,4 
20 DATA 1/2,2/3, 3/4 
30 DATA A, B, C, D, E 
40 DATA, 3.7, 2.9 
50 DATA 3.7, 2.9, 



The following three sets of DATA statements are equivalent. 



90 DATA 2, 3, 6, 8, 12, 15, 19, 27, 33, 26, 47, 59 



90 DATA 2, 3, 6 

91 DATA 8, 12, 15,19,27 

92 DATA 33, 26, 47, 59 



90 DATA 2, 3, 6, 8, 12, 15 

91 DATA 19, 27, 33, 26, 47, 59 



That's right, the numerals in the list are separated by commas. 
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The RESTORE Statement 

The RESTORE statement allows you to reuse DATA statements, 
beginning with the lowest numbered DATA statement in the pro- 
gram. An example of the use of the RESTORE statement is shown 
below: 



10 DATA 2*3*6 
30 DATA 8* 12*15 
30 READ A*B*C*D 
40 PRINT A*B*C*D 
50 RESTORE 
60 READ E*F 
70 PRINT E*F 
99 END 



The RESTORE statement at line 
50 allows the READ statement at 
line 60 to obtain values from the 
DATA statement at line 10 



RUN 
2 
2 



3 
3 



8 



Without the RESTORE statement, an error message would have 
occurred, indicating a lack of data for the READ statement at line 
60. 

Exercise 22. Without using the computer, RUN each of the fol- 
lowing programs. (Fill in the blanks.) If you wish, check your an- 
swers with the computer. 



10 


DATA 1*2 


20 


READ A*B 


30 


PRINT A*B 


40 


RESTORE 


50 


DATA 3*4 


60 


READ C*D 


70 


PRINT C*D 


99 


END 


RUN 



10 READ X 
20 PRINT X 
30 RESTORE 
40 READ Z 
50 PRINT Z 
60 DATA 4*1*2 
70 DATA 3*5*7 
99 END 
RUN 
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More Messages 

We can make the results more readable by including a statement 
that causes the computer to print a heading. For example 



5 PRINT "RADIUS M *"AREA" Print a heading. 

10 READ R 

15 DATA 2,3*8 

20 PRINT R*3?.14*Rt2 

25 GO TO 10 

99 END 

RUN 

RADIUS AREA 

2 12.56 

3 28.26 
8 200.96 

DATA ERROR AT LINE 10 



Exercise 23. Time to play computer. Without using the com- 
puter, RUN the following program. 



10 PRINT ,, L M » M R ,, * ,, L*10+R M > , *L*8+R M Headings 

13 READ L*R 

21 PRINT L#R*L*10*R#L*8+R 

27 GO TO 13 

85 DATA 0#7#l#0,l#l#l,7#2,0#7#7 

99 END 

RUN 



Numerical results 
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Exercise 24. We have written a program to compute the area of 
a triangle, given the base B and the height H as data. 




area*£bh =BH/2 
We want to complete the following table. 



B 



H 



AREA 



7 


6 


8 


12 


5 


9 


23 


17 



Here is our program. Complete it by filling in the DATA state- 
ment. Then, if you can get on the computer, RUN it and complete 
the above table. 



10 PRINT "B^'H'S-AREA" 

20 READ B*H 

30 PRINT B*H#B*H/2 

40 GOTO 20 

90 DATA 

99 END 
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YOU CAN COUNT ON IT 

Loops 

Let's teach the computer to count. That is, let's develop a pro- 
gram to direct the computer to generate and print consecutive 
counting numbers. The counting numbers are: 

1,2,3,4,5,6,7,8,... 

Here is our program and a RUN as evidence that it does what 
we claim. 



Beware! If you RUN the following program 
you may have trouble stopping the computer. 
Check with someone who knows how to in- 
terrupt your computer. 



Assign the value 1 to K. 
Print the current value of K. 
Increase the value of K by 1 . 
Go around again. 



Let's RUN the program. 

If we don't interrupt the computer, 
it will go on and on — printing 
counting numbers. We can inter- 
rupt the computer by holding the 
CTRL key down and pressing C. 



The above program contains a loop. The loop is described below. 

10 LET K*l This is a loop. The statements in 

20 PRINT K the loop are repeated indefinitely. 

30 LET K-K+l Each time through the loop, the 

40 60 TO 20 current value of K is increased by 

99 END i an( j th e i 00 p j s repeated. 
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10 


LET K; 


= 1 


20 


PRINT 


K 


&> 


LET K 


=K+1 


40 


GOTO 20 


99 


END 




RUN 




1 






2 






3 






A 






5 






6 






7 






and so on. 





If you are confused by the statement 

30 LET K = K + 1 



BEFORE 


STATEMENT 


AFTER ^ 


K 1 


30 LET K = K+1 


K 2 


K 2 


30 LET K = K + 1 


K 3 


K 3 


30 LET K = K + 1 


K 4 



Remember the general form of the LET statement. 

line number LET variable = expression 

The expression may be any BASIC expression. The LET state- 
ment directs the computer to evaluate the expression and then as- 
sign the value to the variable. If the expression is a variable ex- 
pression, it is evaluated using the current values of its variable or 
variables. 

Therefore, the statement LET K = K + 1 directs the computer 
to evaluate the expression K + 1 using the current value of K and 
then assign the new value to K. 

Exercise 25. Show the value of the variable after the statement 
has been executed. 



BEFORE STATEMENT AFTER 

K 25 30 LET K= 1 K 

E 6 40 LET E = E + 2 E 
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Loops Exposed 

In order to clarify what happens as the computer executes the 
program, we will "unwrap" the loop and trace it. The following 
trace shows the value of K following the execution of each state- 
ment in the program. Under the heading "OUTPUT" we also show 
results printed by the computer. We have traced the program seven 
times through the loop. 

Study this trace carefully. We will ask you to do several such 
traces. 



STATEMENT 



K OUTPUT 



REMARKS 



10 LET K = 1 



1 



20 PRINT K 1 

30 LET K = K + 1 2 
40. GO TO 20 2 



First time through the loop. 



20 PRINT K 2 

30 LET K = K + 1 3 
40 GO TO 20 3 



Second time through the loop. 



20 PRINT K 3 

30 LET K= 1 +1 4 
40 GO TO 20 4 



Third time through the loop. 



20 PRINT K 4 

30 LET K = K+ 1 5 
40 GO TO 20 5 



Fourth time through the loop. 



20 PRINT K 5 

30 LET K = K + 1 6 
40 GO TO 20 6 



Fifth time through the loop. 



20 PRINT K 6 

30 LET K = K+1 7 
40 GO TO 20 7 



Sixth time through the loop. 



20 PRINT K 7 

30 LET K = K + 1 8 
40 GO TO 20 8 



Seventh time through the loop. 



and so on! 
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Exercise 26. Without using the computer, show the first five re- 
sults printed by the computer under control of each of the following 
programs. (Fill in the blanks.) 



10 LET X-l 10 LET E = 2 

20 PRINT X 20 PRINT E 

30 LET X-X+2 30 LET E = E+2 

40 GO TO 20 40 GO TO 20 

99 END 99 END 

RUN 
RUN 



and so on. and so on. 

Exercise 27. Complete each program (fill in the blanks) so that 
when we run the program, the computer will produce the results 
shown. 



12 LET P« 
25 PRINT P 
33 LET P« 
41 GO TO 
99 END 

RUN 

1 
2 
4 
6 
16 



10 


LET J- 




20 


PRINT 


J 


30 


LET J- 


40 


G0 TO 


20 


99 


END 




RUN 











1 






2 






3 






4 






and 


soon. 





and so on. 
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Exercise 28. This is a trace of one of the programs shown in 
Exercise 2*6. Complete the trace for three times through the loop. 



STATEMENT 


X 


OUTPUT 


REMARKS 


10 LET X = 1 


1 






20 PRINT X 


1 


1 


First time through loop. 


30 LET X = X + 2 


3 






40 GO TO 20 


3 






20 PRINT X 


— 


— 


Second time. 


30 LET X ■ = X + 2 


— 






40 GO TO 20 


— 






20 PRINT X 


— 


— 


Third time. 


30 LET X = X + 2 


— 






40 GO TO 20 


— 






20 PRINT X 


— 


— 


Fourth time and we quit! 


and so on. 









Exercise 29. Here are two variations on previously written pro- 
grams. For each one, show the first four results. 



10 LET K«0 
20 LET K-K+l 
30 PRINT K 
40 60 TO 20 
99 END 

RUN 



10 LET K«l 
20 PRINT 2*K 
30 LET K-K+l 
40 GO TO 20 
99 END 

RUN 



and so on. 



and so on 
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Exercise 30. Trace the following program four times through 
the loop. 



10 LET A=i 
17 LET B-l 
25 LET OA+B 
30 PRINT A 
36 LET A»B 
43 LET B«C 
50 60 TO 25 
99 END 



STATEMENT 



ABC 



REMARKS 



10 LET A = 1 
17 LET B = 1 

25 LET C = A + B 
30 PRINT A 
36 LET A = B 
43 LET B = C 
50 GO TO 25 

25 LET C = A + B 
30 PRINT A 
36 LET A = B 
43 LET B = C 
50 GO TO 25 

25 LET C = A + B 
30 PRINT A 
36 LET A = B 
43 LET B = C 
50 GO TO 25 

25 LET C = A + B 
30 PRINT A 
36 LET A = B 
43 LET B = C 
50 GO TO 25 



These statements are done once. 



First time through loop. 



Second time through loop. 



Third time through loop. 



Fourth time through loop. 
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FOR-NEXT Loops 

The loops we have used so far do not terminate by themselves. 
They go on, and on, and on . . . until someone manually interrupts. 
Now let's look at a loop that terminates automatically. This loop 
makes use of two new statements called the FOR statement and 
NEXT statement. 



10 FOR K»l TO 5 

20 PRINT K 

30 NEXT K 

99 END 

RUN 

1 

2 

3 

4 

5 



We call this a FOR-NEXT loop. 

Let's Run it and see what happens. 

We did not interrupt. 

The computer stopped automati- 
cally. 



Perhaps the following trace will help you understand how a 
FOR-NEXT loop works. 



STATEMENT 


K 


OUTPUT 


REMARKS 


10 FOR K = 1 TO 5 


1 




K starts at 1 . 


20 PRINT K 
30 NEXT K 


1 

2 


1 


First time through loop. 
K < 5. Doit again. 


20 PRINT K 
30 NEXT K 


2 
3 


2 


Second time through loop. 
K ^ 5. D it again. 


20 PRINT K 

30 NEXT K 


3 
4 


3 


Third time through loop. 
K < 5. Do it again. 


20 PRINT K 
30 NEXT K 


4 
5 


4 


Fourth time through loop. 
K ^ 5. Do it again. 


20 PRINT K 
30 NEXT K 


5 
6 


5 


Fifth time through loop. 
K> 5. Stop the loop! 


99 END 


6 




Everything stops. 
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A FOR-NEXT loop consists of three things. 

1 . A FOR statement 

2. A NEXT statement 

3. A set of statements between the FOR statement and the 
NEXT statement. 

A FOR-NEXT loop begins with a FOR statement and ends with 
a NEXT statement. The set of statements between FOR and NEXT 
is called the body of the loop. Here is a "pictorial" representation 
for a FOR-NEXT loop. 



10 FOR X«i TO 12 

body of the loop 
50 NEXT X -< 



The same vari- 
able must be used 
in both places. 



Here is another example. 



1 


10 FOR N-2 TO ' 


' 


20 PRINT N 




30 NEXT N 




99 END 




RUN 




3 




4. 




5 




6 

7~* ! ' 





This FOR statement defines a set 
of values for N. The set is : 

[ 2, 3, 4, 5, 6, 7 ] 

The body of the loop is executed 
repeatedly, once for each value of 
N defined by the FOR statement. 

Every FOR statement must have a 
NEXT statement and every NEXT 
statement must have a FOR state- 
ment. 



Has it occurred to you that the value of the variable increases by 
one each time through the loop? 
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Exercise 31. In each program, circle the body of the FOR- 
NEXT loop. 



10 PRINT 


"RADIUS", "AREA" 


10 PRINT 


"RADIUS"* "AREA 1 


20 FOR R-2 


TO 


4 


20 FOR R»2 


TO 4 


30 PRINT 


R*3. 


U*Rt2 


25 LET A- 3. 


. 14*Rt2 


40 NEXT R 






30 PRINT 


R«A 


99 END 








40 NEXT R 




RUN 








99 END 






RADIUS 






AREA 








2 






12.56 


RUN 






3 






28.26 


RADIUS 




AREA 


4 






50*24 


2 
3 
4 




12.56 
28.26 
50.24 



Remember these things. 

• The FOR statement defines a set of values for the variable. 

• The body of the loop is executed for each member of the 
set. 

• The NEXT statement causes the body of the loop to be exe- 
cuted again, using the next member of the set. However, if 
all members of the set have already been used, then the 
NEXT statement directs the computer to move on to the 
statement following the NEXT statement. 

The following shows the set of values defined for the variable in 
each example of a FOR statement. We have omitted line numbers. 



FOR Statement 


Variable 


Set of Values for the Variable 


FOR J = TO 3 


J 


CO, 1,2, 3] 


FOR I = 1 TO 1 


I 


[13 


FOR A = 3 TO 5 


A 


[3,4,5] 


FOR X = -2 TO 2 


X 


[-2,-1,0,1,2] 


FOR B = 1 TO 


B 


Empty — the loop is skipped. 



Do you see a pattern? Try the following exercises. 
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Exercise 32. Complete the following table. 



FOR Statement Variable Set of Values for the Variable 

FOR N = 1 TO 6 N 

FOR C = TO 5 C 

FOR W = -3 TO 
FOR E = 12 TO 12 
FOR T = 7 TO 5 



The next three are tricky. Be brave — guess! 

FOR X = .5 TO 2.5 
FOR Y=l TO 2.5 
FOR Z = .5 TO 3 



Exercise 33. Time to play computer. RUN each program as if 
you were the computer. 



10 FOR X =2 TO 4 12 FOR K = l TO 3 

20 PRINT X,X*X 23 LET P=2tK 

30 NEXT X 30 PRINT K„P 

99 END 37 NEXT K 



RUN 



99 END 
RUN 
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Instead of using the computer to grind out numbers, let's use it 
to print patterns. 



10 FOR K«l TO 8 

20 PRINT *•**********" 

30 NEXT K 

99 END 

RUN 
********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 



10 FOR K'-I TO 7 

80 PRINT "XOXOXOXOX" 

30 NEXT K 

99 END 

RUN 

xoxoxoxox 

XOXOXOXOX 
XOXOXOXOX 

xoxoxoxox 
xoxoxoxox 

XOXOXOXOX 
XOXOXOXOX 



10 FOR K«i TO 3 

20 PRINT •«♦-+-+-+-♦-+-♦" 

30 PRINT M -+-+-+-+-+-+- M 

40 NEXT K 

99 END 

RUN 

•»■-+-+-+-♦-+-+ 

-♦-+-+-+-♦-♦- 
♦-♦-+-+-+-+-+ 
-♦-♦-+-+-+-♦- 



10 PRINT "XXXXXXXXX" 

20 FOR K«l TO 5 

30 PRINT "XOOOOOOOX" 

40 NEXT K 

50 PRINT "XXXXXXXXX" 

99 END 

RUN 

XXXXXXXXX 

XOOOOOOOX 

XOOOOOOOX 

XOOOOOOOX 

XOOOOOOOX 

XOOOOOOOX 

XXXXXXXXX 



Exercise 34. Write a program to generate each pattern. 



+-+-+-+-+-+-+ 
-+-+-+-+-+-+- 
+-+-+-+-+-+-+ 
-+-+-+-+-+-+- 
+-+.+-+-+_+-+ 

-+-+-+-+-+-+- 
+-+-+-+-+-+-+ 
-+-+-+-+-+-+- 
+-+-+-+-+-+-+ 



******* 



* 
* 

* 
* 



* 

* 
* 
* 
* 

* 



******* 
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The STEP Clause 

A variation of the FOR statement is shown in the following pro- 
gram. 

10 FOB K-l TO 9 STEP 2 Note the STEP clause. 

20 PRINT K 

30 NEXT K 

99 END 

RUN The STEP 2 clause causes the value 

1 of K to increase by 2 each time. 

3 You can verify this by examining 

5 the printed results. 

9 

The following shows the set of values defined for the variable in 
each FOR statement. We have omitted line numbers. 



FOR Statement Values of the Variable 

FOR E = TO 10 STEP 2 E = 0, 2, 4, 6, 8, 10 

FOR E = TO 1 1 STEP 2 E = 0, 2, 4, 6, 8, 10 

FOR X = 1 TO 3 STEP .5 X = 1, 1.5, 2, 2.5, 3 

FORW = lTO7STEP0 W=l, 1, 1, . . . 



Exercise 35. Complete the following table. 



FOR Statement Values of the Variable 



FOR T = TO 6 STEP 3 T = 

FOR N = 1 TO 5 STEP 1 N =, 

FOR K = 100 TO 130 STEP 10 K = 

FOR X = TO 1 STEP .25 X = 
Now — be careful on the next two! 

FOR E = TO STEP 2 E = 

FOR B = 3 TO STEP -1 B = 
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In the following example, we use a space-saving trick. 



12 TOR X-0 TO 12 STEP 2 

23 PRINT X# Aha! Note the comma. 

35 NEXT X 

99 END 

RUN 



* 2 4 6 8 

10 12 



Exercise 36. If the PRINT statement ends with a comma, results 
are printed across the page, with up to five results per line. Here 
is another example — we call it program COUNTDOWN. 



10 FOR N=10 TO 1 STEP -1 

20 PRINT N* 

30 NEXT N 

40 PRINT "BLAST-OFF! ! !" 

50 FOR K»l TO 55 

60 PRINT ">"; 

70 NEXT K 

99 END 

A semicolon to the rescue { 

RUN 
10 9 8 7 6 

5 4 3 2 1 

BLAST-OFF!!! 
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Be sure to RUN this program on your computer. 

Variable FOR Statements 

By using variables instead of numerals, we obtain variable FOR 
statements such as the one in the following program. 



10 INPUT N-* 

20 FOR K=l TO N 
30 PRINT K 
40 NEXT K 
50 GOTO 10 
99 END 

RUN 

?3- 

1 

2 

3 

?5- 

l 

2 

3 

4 

5 

70 



See it! 

Variable FOR-NEXT loop. 

. We enter 3 as the value of N. 

For N = 3, K = 1, 2, 3. 
, We enter 5 as the value of N. 

FotN = 5,K=[,2,3,4,5 

We enter as the value of N. 

The FOR loop is skipped because 

1 >N. 



and so on. 



Change one statement in the above program. 



.Here is the change. 



10 


INPUT N 




20 


FOR K=l 


TO N 


30 


PRINT "* 


t "-*-~ 


40 


NEXT K 




45 


PRINT -*• 




50 


GOTO 10 




99 


END 




RUK 


1 




?3 






*** 






?7 






■■■' I" ^W^^r v W m ^rT" 




and so on. 





■And we added this statement. 
If you want to know why, RUN 
the program without it. 

We enter 3 as the value of N. 
And the computer prints 3 aster- 
isks. 

We enter 7 as the value of N. 
And the computer prints 7 aster- 
isks. 

Carry on — you pick the value of N. 
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Another example. Study it carefully. 



10 INPUT 


A«B 


20 FOR X»A TO B 


30 PRINT 


x; 


40 NEXT X 


50 PRINT 




60 GO TO 


10 


99 END 




RUN 




?3#8 




3 4 5 


6 7 8 


?1#13 




12 3 


4 5 6 



The semicolon packs 'em in. 



8 



10 11 12 13 



Let's trace the above program for A = 3, B = 8. 



STATEMENT 


A 


B 


X 


OUTPUT 


REMARKS 


10 INPUT A, B 

20 FOR X = A TO B 


3 
3 


8 
8 


3 






30 PRINT X; 
40 NEXT X 


3 
3 


8 
8 


3 
4 


3 


First time 
X < B 


30 PRINT X; 
40 NEXT X 


3 
3 


8 
8 


4 

5 


4 


Second time 
X<B 


30 PRINT X; 
40 NEXT X 


3 
3 


8 
8 


5 
6 


5 


Third time 

X<:B 


30 PRINT X; 
40 NEXT X 


3 
3 


8 
8 


6 

7 


6 


Fourth time 
X^B 


30 PRINT X'; 

40 NEXT X 


3 
3 


8 
8 


7 
8 


7 


Fifth time 
X^B 


30 PRINT X; 
40 NEXT X 

50 PRINT 
60 GO TO 10 


3 
3 

3 
3 


8 
8 

8 
8 


8 
9 

9 
9 


8 


Sixth time 

X > B. Stop the loop! 

A carriage return 
and a line feed. 


10 INPUT A, B 


and 


so on 


> 
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Exercise 37. The following program directs the computer to 
compute and print the sum and the arithmetic mean of N numbers. 
Trace it. 



10 READ N 

20 LET S-0 

30 FOR K-l TO N 

40 READ X 

50 LET S-S+X 

60 NEXT K 

70 PRINT N»S#S/N 

90 DATA 3 

91 DATA 87#73#95 
99 END 



The value of N is in Line 90. 

The values of X are in line 91. 

Here is the value of N. (See Line 
10.) And here are the values of X. 
Note that there are N values. 



STATEMENT 

10 READ N 

20 LET S-0 

30 FOR K = 1 TO N 

40 READ X 

50 LET S = S + X 

60 NEXT K 

40 READ X 

50 LET S = S + X 
60 NEXT K 

40 READ X 

50 LET S = S + X 

60 NEXT K 

70 PRINT N, S, S/N 
99 END 



TV 



K 



X 



OUTPUT 



Exercise 38. How would you modify the two DATA statements 
to compute the mean of the numbers: 75, 66, 83, 75, 98? 



90 DATA 

91 DATA 
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Extra for Experts 

The examples on this and the following page may help you dis- 
cover more things about the FOR statement and how it is used. 
We also encourage you to experiment — try out your own ideas on 
the computer. You may wish to guess how something works and 
then try it out. 



10 INPUT 


A#B« 


H 


20 PRINT 


-RADIUS"* "AREA" 


30 FOR R«A TO 


B STEP H 


40 PRINT 


R*3. 


!4*Rt2 


50 NEXT R 




55 PRINT 






60 GO TO 


10 




99 END 






RUN 






?2*8*3 






RADIUS 




AREA 


2 




12.56 


5 




78.5 


8 




200.96 



Compare! 



(A = 2,fl = 8and# = 3) 

The value of R is stepped from 2 
to 8 in steps of 3. 



Another example — another idea. 



10 READ N 

20 FOR K»N*N TO N*CN«-1> 

30 PRINT Kl 

40 NEXT K 

50 PRINT 

60 GO TO 10 

90 DATA 3*7 

99 END 



We can use any BASIC expression. 

Note the semicolon. 

Causes a line space. That is, prints 
a blank line since there is no list 
following the word PRINT. 



RUN 

9 10 11 12 

49 50 51 52 53 54 55 56 

DATA ERROR AT LINE 10 



Results for N = 3 
Results for N = 7 
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We can have a loop within a loop. 



10 PRINT "I", "J" 
15 PRINT 
20 FOR I«l TO 2 
30 FOR J»l TO 3 
40 PRINT I* J 
50 NEXT J 
60 NEXT I 
99 END 

RUN 

l J 



1 
1 
1 
2 
2 
2 



] 



■] 
■] 



■ Inside loop 



Outside loop 



Inside loop 
Inside loop 



Outside loop 



We can use a loop within a loop to print a pattern of M rows 
with N asterisks in each row. 



10 INPUT M,N 
20 FOR I«l TO 
30 FOR J-l TO 
40 PRINT "*"; 
50 NEXT J 
60 PRINT 
70 NEXT I 
80 PRINT 
90 GO TO 10 
99 END 

RUN 

?7#12 
************ 

*r ^P ^P *r *r ^P ^R""T* ^P ^P ^r ^r 

************ 
************ 
************ 

Tt* ^h t" ^n ^F t* ^r ^F ^r *l^ ^r 

************ 



M 

N ~|-#- 



■N asterisks per row 



M rows 



Try this program without the 
PRINTS in Lines 60 and 80. 

(7 rows, 12 asterisks per row) 



Here they are. Seven rows of aster- 
isks with 12 asterisks in each row. 



1-56 



FUNCTION JUNCTION 

The Integer (INT) Function 

The integer (INT) function returns the value of the nearest 
integer not greater than x. Let's see how it works. 



10 PRINT INT<0)*INT<1)*INTC2>*INT(3.14)*INT<7.99> 
99 END 

RUN 

1 2 3 7 

From the results, we see that: 

INT(O) = TNT(l) = 1 INT(2) = 2 

INT(3.14) = 3 INT (7.99) =7 

Here are some rules you can count on. 

• If X is a whole number, then INT(X) = X. 

For example, 

INT(0)=0 INT(I) = 1 

INT(2)=2 INT(3) = 3 

• If X is a positive number or zero, then INT(Z) is the 
whole number part of X. 

For example, 

INT(2.99)=2 INT( 123.45) = 123 

INT(0.75)=0 INT(.75)=0 

Exercise 39. Complete the following. 

(1) INT(4) = (4) INT(27.01) = 

(2) INT(12345) = (5) INT (12/4) = . 4 

(3) INT(0.999999) = (6) INT(13/5) = .. 4 



4 Evaluate the numerical expression first, then apply the INT function to 
the result. 



the result. 
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The INT function is useful in solving problems such as the fol- 
lowing. 



Let a be a whole number and let b be a natural number. Di- 
vide b into a to obtain a whole number partial quotient, q, 
and a whole number remainder, r. 



For example, let a = 28 and b — 7. 

Partial quotient, q = 4. 

Remainder, r = 0. 
Partial quotient, # = 19. 





4 








7/28 








28 








~6 






Next let 


s try a = 

19 

5/97 
5 

"47 
45 

~2 


97 and 6 


=5 



Remainder, r = 2. 

Once more — this time a — 29 and 6 = 32. 

Partial quotient, <? = 0. 

32/^29" 

"29 Remainder, r = 29. 

We can write a mathematical sentence relating a, b, q and r, as 
follows. 

a = bq + r where < r < b. 

For example, 97 = 5 x 19 + 2 

a = b x q + r Note that r <b. 
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Let's solve for r: r = a — bq 

And let's remember that q is the whole number part of a/b. Here 
is a program to compute q and r given input values of a and b. 



1 PR I NT "A" , "B M , " Q", "R' 

20 READ A*B 

30 LET Q-INTCA/B) 

40 LET R»A-B*Q 

50 PRINT A*B#Q#R 

60 60 TO 20 

70 DATA 28#7*97#5#29#32 

99 END 

RUN 



Note how we compute q and r. 



A 


B 


Q 


R 


28 


7 


4 


< 


97 


5 


19 


2 


29 


32 





29 



2a 


7 






28 


7 


4 




28 


7 


4 





28 


7 


4 





28 


7 


4 






DATA ERROR AT LINE 20 

Exercise 40. Complete the following trace of the RUN of the 
preceding program. 

STATEMENT A B Q R OUTPUT 

10 PRINT "A'V'B'V'Q'V'R" A B Q R 

20 READ A,B 

30 LET Q = INT (A/B) 

40LETR = A-B*Q 

50 PRINT A,B,Q,R 28 7 4 28 7 4 

60 GO TO 10 

20 READ A,B 
30LETQ = INT(A/B) 
40LETR = A-B*Q 
50 PRINT A,B,Q,R 
60 GO TO 10 
20 READ A,B 
30LETQ = INT(A/B) 
40LETR = A-B*Q 
50 PRINT A,B,Q,R 
60 GO TO 10 
and so on. 
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Exercise 41. Let x be a 2-digit whole number. That is, x is a 
whole number such that: 

10 < x < 99 

We define a number y as follows. 

y = sum of the digits of x. 

For example, if x = 10, then y = 1 + = 1 
if x = 25, then y = 2 + 5 =- 7 
if * = 99,theny = 9 + 9 = 18 

Complete the following program to compute y for a given value 
of x. RUN it for the DATA shown. 



10 READ X 

20 

30 

40 

50 

70 PRINT X,Y 

80 GO TO 10 

90 DATA 10,15*33,37,40,99 

99 END 

Exercise 42. Let z be the number obtained by reversing the digits 
of x. For example: 

if jc=10thenz = 01 = 1 
if x = 37 then z = 73 
if x = 99 then z = 99 

Modify your program of Exercise 41 so that the computer com- 
putes the value of z instead of the value of y. 



EXPLORE! 

Try the INT function on negative numbers (non-integers as 
well as integers). Can you give a general definition of the 
INT function? 
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The Square Root (SQR) Function 

We assume that you know how to compute square roots of num- 
bers. Let's find out. 

Exercise 43. Complete each of the following: 

1 . A square root of 4 is . 



2. Another square root of 4 is 



Here is how we instruct the computer to compute square roots. 



10 PRINT SQRC4>#SQR<25>#SQRC100>#SQRC0> 
99 END . 

RUN 

2 5 10 

If X is any non-negative number (positive or zero), then SQR(X) 
is the non-negative square root of X. If you try to take the square 
root of a negative number, you may obtain an error message. 



10 PRINT SQRC-4> 
99 END 

RUN Note the error message. 

ARGUMENT ERROR AT LINE 10 



The symbol SQR () which we use in BASIC corresponds to the 
symbol ^ which we use in mathematics. Perhaps you recall that, 



a is used to mean the non-negative square root of a. 

Y~a~ is used to mean the negative square root of a when 
a > 0. 
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Here is a program to compute the two square roots of a. 



10 INPUT A 




20 PRINT SQR<A>*-SQR<A> 


30 60 TO 10 




99 END 




RUN 




74 




2 


-2 


74096 




64 


-64 


?0 










72 




1.414214 


-1.414214 



If a = 0, there is no negative square 
root. 

These answers are approximations 
to the square roots of 2. 

By using the FOR-NEXT loop, you can build your own square 
root table. 



10 for x-l TO 10 
20 PRINT X#SQR(X> 
30 NEXT X 
99 END 

RUN 



1 

2 
3 
4 
5 
6 
7 
8 
9 
1( 



1.414214 

1.732051 

2 

2.236068 

2.44949 

2.645751 

S. 828427 

3 

3.162278 



To obtain the square root table of 
your choice, modify the FOR state- 
ment. 



Exercise 44. How would you write the FOR statement to obtain 
a square root table with values of X running from to 1 in STEPS 
of .2? 
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If we know the lengths of two sides of a right triangle, we can 
compute the length of the third side by applying the Pythagorean 
theorem. For example, suppose c is the length of the hypotenuse 
and a and b are the lengths of the other two sides, as indicated in 
the diagram. 

Given a and b, we want to compute c. 



c= /a 2 + b 2 




Let's use the computer. 

10 READ A*B 

20 LET C-SQR<AtS+Bt2) 

30 PRINT A*B*C 

40 GO TO 10 

90 DATA 3*4*12*5* 1*1 

99 END 



(Data for 3 triangles) 



RUN 

3 

12 

1 



4 
5 
1 



5 

13 

1.414214 



DATA ERROR AT LINE 10 

From the results we see that 

If a = 3, b - 4 then c = 5 
lia= 12,* = 5 then c- 13 
If a = l,fc = l then c~ 1.41421 

Exercise 45. Suppose we know the values of c and a. You write 
the program to compute and print the value of b. Then use your 
program to obtain the value of b for each of the following. 
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LOOK BOTH WAYS 

LOOK BOTH WAYS 

Look back — where have we been? 
Loops SCR - LIST INT 

FOR NEXT floatingpoint + RUN 

SQR expressions t * READ 

LET INPUT messages PRINT 

variables DATA END RESTORE 

Look ahead — more BASIC— where will it lead? 

IF RND STOP TAN 

< > 

ABS COS ATN DIM GOSUB 

RETURN REM Arrays SIN 

ON... GO TO SGN flowcharts EXP 

Subscripted variables DEF LOG 
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FINDING YOUR WAY 

Flowcharts 

A flowchart is like a road map. A road map helps you find your 
way through unfamiliar terrain — a flowchart helps you find your 
way through a computer program. If you want to. use a road map, 
you must learn how to read it — true also of a flowchart. We will 
start with easy flowcharts and show you how to read them. Here 
is a flowchart of a program to generate counting numbers. 



When you read a program 
follow the line numbers. 



When you read a flowchart, 
follow the arrows. 



10 LET K»l 
20 PRINT K 
30 LET K-K+l 
40 60 TO 20 
99 END 



y 



/ 



y 



s 





LET K« 1 j 




' ' 




PRINT K 1 




' 


1 


LETK=k+< 









Note that this arrow corresponds to the GO TO statement. In 
this flowchart there is no box corresponding to the END statement. 



If you prefer, you can draw horizontal flowcharts instead of 
vertical flowcharts. 
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Here is a flowchart with an END box. 



LET R=3 



/ 



10 LET R»3 

20 LET A-3.14*Rt2 

30 PRINT R*A 

99 END- 




In the above flowchart, we showed the END box because it is 
actually executed in the program, causing the computer to stop. 

What next? An INPUT box. 





INPUT R 


) 


n 




■ 


1 




LET 
A=3.14*Rt2 








' 






PRINT R,A 




> j 





10 INPUT R 

20 LET A=3.14*Rt2 

30 PRINT R,A 

40 GO TO 10 

99 END 



\ 



This END is never actually 
executed by the computer; so 
we don't show it in the flow- 
chart. 



Note the shapes of the boxes used in the flowchart so far. 



5 From now on, we will usually omit this reminder. 
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Confused? More examples may help. 



■ ^ INPUT A, B ) 




1 


• 




LETQ=INT(A/B) 






• 




LET R=A-B*Q 







< 




PRINT A.B.Q.R j 





13 INPUT A#B 

25 LET Q-INTCA/B) 

37 LET R=A-B*Q 

43 PRINT A#B*Q*R 

52 60 TO 13 

99 END 

RUN 



779*12 

79 
? 

? and so on. 



12 



To save space, we might do the 
above flowchart like this 



or like this 



/ 



| *( INPUT A, B J 




■ 


1 




LET Q=INT(A/B) 
LET R*A-B* Q 




1 


1 




PRINT A 


•B.Q.R 



( INPUT A,B 



LETQ=INT(A/B) 
LET R = A-B*Q 




We simply put two LET statements in one 
LET box in order to save space. If there 
are two or more statements in a box, execute 
them in order from top to bottom. 
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Exercise 46. Below are flowchart boxes in the order in which we 
introduced them. Note the shape and write the type of box (IN- 
PUT, END, LET, etc.) beneath each shape. 




O c 



} 



How do we indicate a GO TO statement in a flowchart? . 



Exercise 47. Complete the flowchart of the following program. 



C 



D 



10 INPUT A,D 
20 PRINT A 
30 LET A-A+D 
40 GO TO 20 
99 END 






Exercise 48. Write the program that corresponds to the following 
flowchart. Use our line numbers. 



LET K = 1 





LETP 


=2tK 


1 


» 


PRINT 

1 


r k ,p 1 

> 


LET K= K+1 



12 



24 



36 



48 



60 



99 



What does the program do? That 
is, what does it direct the com- 
puter to do? Predict the results, 
then RUN the program on the 
computer. 
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We use the same box shape for READ as we do for INPUT. 
But there is no flowchart box corresponding to a DATA statement. 



10 


READ j 


ft#B 




20 


LET C 


■A*B 




30 


PRINT 


A*B*C 




40 


GO TO 


10 




90 


DATA 


3*4*5* 


-7 


99 


END 






RUN 






3 






4 


5 






-7 



12 
-35 



pC 


READ A,B 


) 






■ 


' 






LET C=A*B 








- 


1 






PRINT A.B.C 





DATA ERROR AT LINE 10 



Let's put the computation 
directly into the PRINT 
statement (program) or the 
PRINT box (flowchart). 



1 — "^ 






10 READ X*N 

20 PRINT X*N*X+N 

30 GO TO 10 

60 DATA 2*3*10*10 

99 END 

RUN 

2 3 
10 10 




[ READ X,N ^ 






■ 


■ 






PRINT X.N.XtN I 






5 
20 



DATA ERROR AT LINE 10 



Remember: Use 



c 



J for either INPUT or READ. 
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Messages? How do we show them in a flowchart? Easy . . 



10 PRINT "GOOD MORNING" 
99 END 



Note the quotation marks. 



PRINT 
"GOOD MORNING" 




Another example — 




10 PRINT "RADIUS"* "AREA 

20 READ R 

30 PRINT R*3.l4*Rt2 

40 GO TO 20 

50 DATA 2*3*8 

99 END 


nUN 

RADIUS 
2 
3 
8 




AREA 
12.56 
28.26 
200.96 



DATA ERROR AT LINE 20 



If you don't like our style of flowchart, invent your own. Like 



ENTER 




CATCH 
ANSWER 
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FOR-NEXT Loops in a Flowchart 

Remember FOR-NEXT loops? We show them in a special way 
in a flowchart. 



10 FOR K*l TO 5 
20 PRINT Ki 
30 NEXT K 
99 END 




Another one— this time with 
a STEP clause. 






FOR 

E-0TO1O 

STEP 2 







10 FOR E-0 TO 10 STEP 2 
26 PRINT E 
39 NEXT E 
99 END 

RUN 


2 
4 
6 
8 
10 



We include the END box in the flowchart above because it is 
actually executed — stopping the computer after all numbers speci- 
fied by the FOR-NEXT loop have been printed. 
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Exercise 49. Complete the flowchart of the following program. 



10 INPUT A*B*H 
20 FOR X=A TO B 
30 PRINT X 
40 NEXT X 
50 GO TO 10 
99 END 



STEP H 




GOTO 




Exercise 50. Draw- a flowchart of the following program. Draw 
your flowchart here. 



10 INPUT 


N 






20 FOR K«l 


TO 


N 


30 LET P«KtK 




49 PRINT 


Kj 


.P 




50 NEXT K 






99 END 








RUN 








?5 








1 






1 


2 






4 


3 






27 


4 






256 


5 






3125 



K t K increases rapidly, 
doesn't it?! 
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MAKING DECISIONS 

A Fork in the Road 

The road divides into two paths . . . which way? 

This way? 



< 



or this way? 
You must decide. 

In a flowchart we use a diamond shaped box to indicate a de- 
cision point based on a condition. 

One arrow into the box 




We write the 

condition inside 

the box. ^n^ ■ ^y Xwo arrows out of the box- 

one labelled "YES" and 
one labelled "NO" 

The condition in the box must have exactly two possible out- 
comes. 

• If the condition in the box is TRUE, follow the arrow 
labelled YES. 

• If the condition is FALSE, follow the arrow labelled NO. 

Examine the condition in the decision box above and complete 
the following table showing which path to follow for given values 
of A and B. 

Value of A Value of B Which Path? (YES or NO) 



3 ' 


4 


5 


2 


7 


7 





1 





-1 


■2 


-1 
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Which is larger, 3 or 4? 
Which is larger, 5 or 2? 



rf A = 3 and B = 4, which is larger, /I or B? 
If /I = 5 and 5 = 2 which is larger, ^4 or Bl 



In the flowchart below, trace the path for A = 3, B = 4 and the 
path for A =f 5, B = 2. You may wish to mark these paths in two 
different colors. 




The flowchart directs the 
computer to print the larger 
of two numbers, A and B. 



Suppose you mark the path for A — 3, B = 4 with a red pencil 
and the path for A — 5, B = 2 with a green pencil. Which path 
would we follow (red or green) if 



A = 1, B = 0? 

A = 7, B = 7? 



A = 0, B = 2? 

,4 = - 1,£=: 



2? 



Let's translate the flowchart into a BASIC program. 
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10 INPUT A,B 

20 IF A>B THEN 

30 PRINT B 

40 GO TO 10 

50 PRINT 

60 GO TO 

99 END 

RUN 

?3,4 

4 
?5, 2 

5 



50 



A-*h 
10 



This is an IF statement. It corres- 
ponds to a decision box in a flow- 
chart. 



... Follow me if and only if A>B. 
Prove it! RUN the program. 

A =3, B= 4. 
B is larger than A. 

A=5,B = 2. 

A is larger than B. 

If A = 3 and 5 = 4 the computer executes statements 10, 20, 
30 and 40. 

If A = 5 and B — 2 the computer executes statements 10, 20, 
50 and 60. 

Let's trace the program. We follow the computer as it executes 
each statement and show the values of A and B after each state- 
ment is carried out. For a PRINT statement, we also show what is 
printed under the heading "OUTPUT." 



STATEMENT 


A 


B 


OUTPUT 


REMARKS 


10 INPUT A,B 


3 


4 




First case: A — Z, 
B = 4. 


20 IF A>B THEN 50 


3 


4 




A>B is FALSE. 


30 PRINT B , 


3 


4 


4 


Continue with State- 
ment 30. 


40 GO TO 10 








Go around again. 


10 INPUT A,B 


5 


2 




Second case: A = 5, 
B = 2. 


20 IF A>B THEN 50 


5 


2 




A>B is TRUE. 


50 PRINT A 


5 


2 


5 


Go to Statement 50 and 
proceed. 


60 GO TO 10 








Go around again. 


10 INPUT A,B 


7 


7 




Third case: A = 1, 
B = l. 


20 IF A>B THEN 50 


7 


7 




A>B is FALSE. 


30 PRINT B 


7 


7 


7 


Continue with State- 










ment 30. 


40 GO TO 10 










and so on. 
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Exercise 51. Complete the following program and flowchart di- 
recting the computer to print the smaller of two numbers, A and B. 



10 INPUT 


A,B 


20 




30 PRINT 


B 


40 GO TO 


10 


50 PRINT 


A 


60 GO TO 


10 


99 END 




RUN 




73, 4 




3 




?5, 2 




2 






Exercise 52. We have written a program directing the computer 
to print two numbers in ascending order with the smaller on the left 
and the larger on the right. You do the flowchart here. / 



10 INPUT A,B 

20 IF A<B THEN 50 

30 PRINT B»A 

40 GO TO 10 

50 PRINT A, B 

60 GO TO 10 

99 END 

RUN 

?3, 4 

3 4 

?5, 2 

2 5 
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There is usually another way. In this case, another way to direct 
the computer to select and print the larger of two numbers. 



First, enter the two numbers. 



r< 


INPUT A,B 


) 






■ 


1 




LET C=A 




Guess that A > B and set C = A. 



If C ^ B is TRUE, our guess is 
correct. In this case, follow the 
YES path. 



But if C ^ B is FALSE, we were 
wrong. We acknowledge our mis- 
take and set C = B. 



By either path, 

C = MAX(/L B) — maximum of 

A and B. So we print the value of 

CV 



Again, there are two possible paths through the flowchart. Mark 
them in two colors. If you mark the path for A = 3, B = 4 in green 
and the path for A = 5, B = 2 in red, which path (green or red) 
should we follow if 



A =2,B = 1? 



,4=9,5 = 10? 



A = 7,B = 71 



A = o,B = -n 
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O.K., here is the BASIC program to go with the flowchart on the 
preceding page. 



10 INPUT A, B 

20 LET C=A 

30 IF C>=B THEN 50 

40 LET OB 

50 PRINT C-* 



60 GO TO 


10 


99 END 




RUN 




73,4 




4 




?5, 2 




5 





Note how we write ^ in an IF 
statement. 



Follow me if and only if 

C ^ B is TRUE. 



A = 3,5 

C = 4. 



,4 =5,£ 
C = 5. 



Your turn . . . complete the following trace of the above program. 



STATEMENT 


A 


B 


C 


OUTPUT REMARKS 


10 INPUT A,B 


3 


4 








20 LET C =i A 


3„ 


4, 


^3 






30 IF C > =t B THEN 50 


3 


4 


3 




C^^is FALSE. 


40 LET C = B 










You carry on. 


50 PRINT G 






* 






60 GO TO 10 












10 INPUT A,B 


5 


2 








20 LET C = A 


5^ 


2^ 


rS 






30 IF C > = B THEN 50 


5 


2 


5 




TRUE or FALSE? 
Where to next? 
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The IF Statement 

The IF statement directs the computer to examine a relation be- 
tween two expressions and then follow one (and only one) of two 
paths depending on whether the relationship is TRUE (YES) or 
FALSE (NO). 

In general, the IF statement looks like this: 

n IF e, r e 2 THEN t 

where n = line number of the IF statement 

e x = any BASIC expression 

e 2 = any BASIC expression 

r — any legal BASIC relation (see below) 

t = line numbef of the statement executed next 
if and only if e^ re 2 is TRUE 

Relation between 
two expressions, e x and e 2 - 



For example, 
35 IF 

♦ ♦ 

n IF 



X = INT(X) 



X = 

t t 

e x r 



INT(X) 

t 

e 2 



THEN 

t 

THEN 



60 

t 

t 



is TRUE if X is an integer. 

is FALSE if X is not an integer. 



Here is a handy table showing BASIC relations and correspond- 
ing mathematical ralations. 



MATH 


BASIC 


RELATION 


= 


— 


Equal to 


< 


< 


Less than 


> 


> 


Greater than 


< 


<= 


Less than or equal to 


> 


>= 


Greater than or equal to 


± 


<> 


Not equal to 
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A Problem. Write a program directing the computer to tell us 
whether a number is positive, negative or zero. 

Let's solve it. Since there are three possibilities (X > 0, X < 0, 
or X = 0),| we can't solve the problem with a single IF statement. 
But we can do it with two IF statements. 

For example, 



If X>0 is FALSE, then 
X < or X = 0. Which 
one? 




There are three possible paths through the program. Mark them 
in three colors. 



What color path if X = 7? , 



What color path if X = -3?. 



What color path if X = 0?. 



Exercise 53. Write a BASIC program to go with our flowchart. 
RUN it for X = 7, X = -3 and X = 0. 
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VARYING PATTERNS 

Rectangular Patterns 

We wrote a program to print rectangular patterns on the Tele- 
type. We ran it . . . here is what happened. 



/ 



?12,29-^ 

***************************** 
***************************** 
***************************** 
***************************** 
***************************** 
***************************** 
***************************** 
***************************** 
***************************** 
***************************** 
***************************** 
***************************** 



Rows 

Columns 

Our program lets us specify the 
number of rows and columns in this 
rectangular pattern. 

This pattern has 1 2 rows and 29 
columns. That is, it has 12 rows 
and there are 29 asterisks in each 
row. 



Using our program, we can direct the computer to print rec- 
tangular patterns with as many rows as we want. The number of 
columns, however, is limited to 72 since there are only 72 printing 
positions across the paper. 

In the above pattern, there are 
12 x 29 = 348 
asterisks in all. 



Let's RUN the program again. 



? 3> 1 -*- 



■This time we want 3 rows, 10 
columns. 



********** 
********** 
********** 



Here they are 



count them. 



Now let's look at the program. 
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Below is part of the program. This part directs the computer to 
print one row of asterisks with N asterisks in the row. 



10 INPUT N 
15 PRINT 



N specifies the number of asterisks 
to be printed in the row. 



30 FOR Crl TO N 
40 PRINT "*"; 
50 NEXT C 



60 PRINT 
80 GO TO 10 
99 END 



Here is the heart of the program. It 
causes the computer to print N 
asterisks, all in one row because the 
PRINT statement ends with a semi- 
colon. 

This PRINT causes a carriage re- 
turn and line feed to occur after all 
the asterisks have been printed. 



RUN 



Let's try it. 



?10 

♦ ♦ ♦ ♦ ** * * ♦ * 



N= 10, so 

the computer prints a row with 10 

asterisks. 



?20 



N = 20. 



******************** 



How many asterisks? 



?72 



TV = 72. Computer prints 72 aster- 
isks. 



N = 73 
one line. 



can't get them all on 



************************************************************************ 

?73 

******************************* **************************** ************* 

* 



The 73rd asterisk ended up here. 



The computer will print up to 72 asterisks on one line . . . but 
no more. If N > 72 then the computer prints 72 asterisks on the 
first line and continues on the next line. Suppose Af = 200. How 
many lines will it take to print the "row" of 200 asterisks? 
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By adding three statements and changing the INPUT statement 
in the preceding program, we get a program to print a pattern con- 
sisting of M rows with N asterisks in each row. 



10 INPUT M,N 
15 PRINT 



20 


FOR R= 1 TO 


M 


30 
40 
50 


FOR CM TO 
PRINT "*••; 
NEXT C 


N 



60 PRINT 
70 NEXT R 



75 PRINT 
80 GO TO 10 
99 END 

RUN 



One row with 
N asterisks 



\ 



Which lines did 
we add? 

M rows 



This program has a "loop within a 
loop." 

Does it work? RUN it. 



?5, 12 



We enter M = 5, N = 12. 



************ 
************ 
************ 
************ 
************ 

?1#7 

******* 

77, I 

* 
* 

* 
* 

* 

?1> 1 

* 
?0, 



The computer prints a rectangular 
pattern with 5 rows and 12 col- 
umns. 



A 1 by 7 pattern (1 row, 7 col- 
umns). 

And a 7 by 1 pattern (7 rows, 1 
column) . , 



We finish with a 1 by 1 pattern. 



P.S. How about a null (empty) 
pattern? 
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Exercise 54. If you are tired of seeing asterisks before your eyes, 
change this statement 



to this, 
or this 



~1 



40 PRINT "*"} 



40 PRINT "X"; 



or to the statement of your choice. Then RUN the program again. 

Exercise 55. Start with our program on page 1-83. Change the 
INPUT statement to 



10 INPUT M 



and change one other statement so that the modified program will 
print right triangular patterns, like these. 



RUN 



This pattern has 2 rows with - 1 
asterisk in Row 1 and 2 asterisks in 
Row 2. 



73-*- 

* 

** 

*** 

74 

* 

** 
*** 
**** 



and so on. 



This pattern has 3 rows with 1 
asterisk in Row 1, 2 asterisks in 
Row 2 and 3 asterisks in Row 3. 



"~~1 



This pattern has 4 rows with 1 as- 
terisk in Row 1, . . . 



For an INPUT value of M, the pattern has M rows with 1 aster- 
isk in Row 1, two asterisks in Row 2, three asterisks in Row 3, 
. . ., M asterisks in Row M. 
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In the following program, we use a "brute force" approach to 
tell the computer to print a "leaning tower" pattern. 



10 PRINT '•********•• 

20 PRINT " ******** 

30 PRINT " 

40 PRINT " 

50 PRINT " 



60 PRINT " 

70 PRINT " 

80 PRINT " 
99 END 



********** 
********** 
********** 
********** 
********** 
********** 

spaces 



Each PRINT statement tells the 
computer to print a certain num- 
ber of spaces followed by 8 aster- 
isks. 



RUN 

******** 
******** 

^P ^P ^p ^p ^p ^p ^p i^Pft 

******** 
******** 
******** 
******** 
******** 

spaces 



You can use the • brute force 
method to print just about any 
pattern you want. 



Let's make the tower lean the other way. 



10 PRINT •• 

20 PRINT " 

30 PRINT " 

40 PRINT " 

50 PRINT M 

60 PRINT " 

70 PRINT " 

80 PRINT " 
99 END 
RUN 



^P ^f* ^i ^** ^** ^p ^*4 ^p- 

********** 
********** 

T* ^r ^ ^F T T* ^F ^r 

********** 
********** 
********** 
********** 



Print 7 spaces, then 8 asterisks. 
Print 6 spaces, then 8 asterisks. 
And so on. 



******** 

^P ^P ^P ^P ^P *T ^F ^P 

******** 
******** 
******** 
******** 
******** 
********* 
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The TAB Function 

Yes, we're leading up to something . . . here is another way to 
do the first leaning tower pattern. 



10 print tab^);"********" 
20 print tab< 1 > j "********" 
30 print tabc 2) j"********" 
40 print tab( 3) ;"********" 
50 print tabc4) ;••********" 
60 print tab( 5) ;"********" 
70 print tabc6);"********" 
80 print tabc?);"********" 

99 END 



RUN 
******** 
******** 
******** 
******** 
******** 
******** 
******** 
******** 



We wrote this program primarily 
to introduce the TAB function. 

'The TAB function causes the com- 
puter to space over to the printing 
position enclosed in the ( ). 



We hope your version of BASIC provides the TAB function . . . 
if not, you might as well skip the rest of this section." If your com- 
puter does provide the TAB function, read on! 



EXAMPLE 



EXPLANATION 



TAB(7) 
TAB (25) 



Space the teletypewriter over to printing Position 7. 
Space the teletypewriter over to printing Position 25. 



There are 72 printing positions across the page . . . they are 
numbered through 71. 



**************************************************** 



X 



Position 



Position 37 



Position 7 1 



Your turn . . . circle printing Positions 10, 20, 30, 40, 50, 60 
and 70 above. 



6 EduSystem 10 does not include the TAB function; larger systems do. 
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In general, the TAB function looks like this 

TAB(e) 

where e is any BASIC expression. The expression is evaluated and 
the computer spaces the Teletype to the position specified by the 
value of the expression. If the value of e is not a whole number, 
then the computer spaces the teletype to the whole number part 
of the value of e. 



EXAMPLES 



EXPLANATION 



TAB(K) 
TAB(R-l) 

TAB (2*X + 3) 



Move to Position K. ( < K < 7 1 ) 
Move to Position R-l. (0<K-1<71) 
Move to Position 2*X + 3. (0 ^ 2*X + 3 ^ 71) 



Here is yet another way to print the leaning tower pattern. 



I 



10 FOR R=l TO 8 

20 PRINT TAB(R:l)i"********" 

30 NEXT R 

99 END 

RUN 

******** 
* * * * * * * * 
******** 

*r ^r ^F ▼ ^F ^F ^r t 

^F ^h ^n ^F ^F ^F ^F ^F 

******** 
******** 



^r *r ^F T ™ ^F ^F T 



■Space over to printing Position 
R-l. When R = i, this is Posi- 
tion 0; when R = 2, this is position 
1; and so on. 



The computer cannot space the 
Teletype «- to the left. So, if it is 
already at Position 30, you cannot 
space it to Position 20. 



There are no negative printing po- 
sitions. TAB(— 1) is ignored. TAB 
(K) is ignored if K < 0. 
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Exercise 56. By changing one statement in the preceding pro- 
gram you can get a program to print the leaning tower in which 
the top leans to the right. Do it! Then RUN it 

Exercise 57. Here are two programs. Read them. Figure out 
what they do. Without using the computer write down what you 
think the computer will print. Then (and not until then) RUN the 
programs. (Were you correct?) 



20 FOR R=l TO 8 
30 PRINT TAB<R-1>; 
40 FOR Ol TO 8 
50 PRINT "*"J 
60 NEXT C 
70 PRINT 
80 NEXT R 
99 END 



20 FOR R=l TO 8 
30 PRINT TAB(8-R)J 
40 FOR Ol TO 2*R-1 
50 PRINT "*"J 
60 NEXT C 
70 PRINT 
80 NEXT R 
99 END 



Exercise 58. By adding an INPUT statement and changing a few 
things in the programs of the preceding exercise, you can get a pror 
gram that will let you specify the size of the pattern. Try it. 

Exercise 59. Use the brute force method (page 1-85) to cause 
the computer to print a pattern of your choice: SNOOPY, a dove, 
a flower, you name it. 
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MEANDERING 
Random Numbers 

Random numbers — what are they? According to one definition, 
a random number is a number that is chosen by chance from a 
given set of numbers. 

• We flipped a coin ten times. If it came up HEADS, we wrote 
"1" and if it came up TAILS we wrote "0." 

Here is what happened: 10 1 11010 1 

• We rolled a die 20 times. Each time we wrote down the num- 
ber of spots showing on top. 

Here is what happened: 5 2153 342 14 

6 2 5 15 13 2 6 1 
In each case we got a random sequence of numbers. Each num- 
ber in the sequence was selected at random -horn a given set of 
numbers. 

• When we flip a coin, we select numbers at random from the 
set (0,1). 

• When we roll a die, we select numbers at random from the 
set (1,2,3,4,5,6). 

By "select at random" we simply mean that we use a selection 
process in which each member of the set has the same chance of 
being selected as any other member of the set. That is, the prob- 
ability of selecting any member of the set is the same as the prob- 
ability of selecting any other member. 

We can obtain a random sequence of numbers from the set 
(0,1,2,3,4,5,6,7,8,9) by using a spinner like the one pictured 
below. 




Spin the wheel . . . select 
the number at which it stops. 

We show the wheel stopped 
at seven. 
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There is a BASIC function called RND. It generates "random 
numbers." Here is a sequence of 50 random numbers. 



10 FOR K-l 
20 PRINT RN 
30 NEXT K 
99 END 
RUN 
.3481899 
.6482347 
.7759228 
.4857633 
.6156673 
.3796163 
.9547609 
.05280478 
.9848808 
.5828625 



TO 50 
D<0>, 



.9928119 

.3675558 

.08069808 

.4192038 

.5921191 

.2023254 

.2890875 

.3859534 

.2466345 

.7026891 



,8231623 
371222 
.5008833 
,1433537 
,01170888 
,7974058 
,1416765 
,8404774 
,61588 
,9703719 



3.666706E 

.91933 

.2790171 

.08728769 

.7411813 

.9635064 

.2482717 

.5692836 

.4 755698 

.4980298 



-03 



.6135392 

.1749821 

. 1661529 

.2335427 

.341708 

. 60438 65 

.2145417 

.8514056 

.3104984 

.2548 316 



Every number in the random sequence is greater than zero but 
less than one. In other words, 

0<RND(0)<1. 

Every time the computer evaluates RND(O), it generates an- 
other random number between zero and one. In the above pro- 
gram, RND(O) occurred in a FOR-NEXT loop and was evaluated 
50 times. Therefore, 50 random numbers were printed. 

BEWARE! 

If you RUN our program, 
don't expect to obtain the 
same results. 
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But what if we want a random sequence in which each number 
in the sequence is zero or one? Here is one way. 



10 FOR K=l TO 20 
20 PRINT INTC2*RND< 
30 NEXT K 
99 END 
RUN 
1 1 1 



B,< V 



Print the integer part of 
. twice the random number. 



1 l 



10 111 



Why does the computer print only zeros and ones? Because, if 
you recall, 

0<RND(0) <1. 



Therefore, 



< 2*RND(0) < 2 



and 



INT(2*RND(0)) is either or 1. 



The RND function is useful when we want to use the computer 
to simulate (imitate) a real life activity in which chance plays a 
part. Since we can flip a coin to obtain random numbers, why not 
use random numbers to simulate coin flipping? 



10 FOR K»l TO 20 

20 LET R=INT<2*RND<0>> 

30 IF R=l THEN 60- 

40 PRINT "TAILS", 

50 GO TO 70 

60 PRINT "HEADS'V 

70 NEXT K 

99 END 



s 



:J 



R is either or 1 . 

If R = 1, "HEADS" is printed. 
Otherwise (R = 0), "TAILS" is 
printed. 



RUN 










HEADS 


HEADS 


HEADS 


TAILS 


HEADS 


TAILS 


TAILS 


HEADS 


HEADS 


HEADS 


HEADS 


TAILS 


TAILS 


HEADS 


HEADS 


TAILS 


TAILS 


HEADS 


HEADS 


HEADS 



REMEMBER. . .If you 
RUN our program you will probably 
get a different set of results. 
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Exercise 60. Write a program to simulate N tosses of a coin, 
where the value of N is entered in response to an INPUT statement. 
Here is a RUN of our program for this exercise. 



RUN 






?10 






HEADS 


HEADS 


TAILS 


TAILS 


HEADS 


TAILS 


READY. 






and so on. 







HEADS TAILS 

HEADS HEADS 



Exercise 61. The possibility set for INT(2*RND(0)) is (0,1). 
The possibility set is the set of all possible values of the complete 
expression. What is the possibility set for each of the following? 

(1) INT(3*RND(0)) (2) 3*INT(RND(0)) 

(3) INT(6*RND(0) ) 

(4) INT(6*RND(0)) + 1 

(5) INT(10*RND(0)) 



(6) INT(10*RND(0))/10 



Exercise 62. Simulate something. Write a program to generate a 
random sequence that imitates a real life activity — like rolling one 
die, rolling two dice, spinning a spinner like the one shown on 
page 1-89, a game of chance, or you name it! 
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Constellations 

Remember this program? (See page 1-83) 



10 INPUT M,N 
20 FOR R=l TO M 
30 FOR C=l TO N 
40 PRINT "*"; 
50 NEXT C 
60 PRINT 
70 NEXT R 
75 PRINT 
80 60 TO 10 
99 END 
RUN * 



If 



77,12 

t* ^p ^p ^p ^F ^r ^P ^P ^n ^p ^p ^F 

* *** 4c * ****** 
************ 
************ 
************ 
************ 
4c4c4e4cat;4c]#c4c4c4c4(4c 



This program prints an M by iV 
rectangular pattern of "stars." 



1 1 

We want 7 rows and 12 columns. 



This pattern uses 7 X 12 = 84 
printing positions. A "star" is 
printed in each printing position. 



Now suppose that we print an M X N pattern but instead of 
printing a star ( * ) in each position, we flip a coin ... if it comes 
up HEADS we print a star . . . if it comes up TAILS we print a 
space. Here are some 10 X 20 patterns obained in this manner. 



/ 



** **** * ** * **** * ** *** 
* ** **** ** * * ***** ** ** 
*** ****** ***** ****** 

* **** * *** * ****** * ** * 

* ***** * * ***** *** ** * * 
***** ****** ********* 

*** * ** ** *** **** * **** 
***** ** *** ** ****** * * 

* * * ***** * *** ******** 
*** * * *** * * ******* * * * 



* ** ***** ****** * * *** * 
** **** * * ** * * ***** ** * 
******************** 

****** ** ************ 

**** *********** *** ** 

***** *** ** *** ****** * 

* * * *** * ***** ** * *** ** 
** * ** * *** *** * * * * *+** 

*** *** * * * **** * *** * ** 
***** *** ** * * **** ** ** 
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*- 



O.K., we didn't actually sit at the Teletype and flip coins. Instead, 
we added some statements to our program to generate rectangular 
patterns and let the computer do the work. Here it is. 

We let the computer "flip" the coin. 

If it comes up HEADS (1) then 

j0 input m.n print a "star"; otherwise print a 

15 PRINT onone* 

20 for r= i to m space. 

30 FOR C=l TO N 

35 IF INT<2*RND(0)>*I THEN 50 

M PRINT " "» 



SeT 


PRINT 


** 


60 


NEXT C 




65 


PRINT 




70 






70 


NEXT R 




75 


PRINT 




80 


GO TO 


10 


99 


END 




RUN 





How many stars were printed in 
all? 



?10>20 

********* ** ** *** * * ** 
******* *** *** *** ** + * 
****** *** * ** *** ***** 
********** ******** * * 
*** ** ***** ** ** ****** 
************* **** * * * 
**** *** ** ***** ****** 
************* +** **** 
***** * * ****** ** * * *** 
******* *** +* * **+ ** * 



AS£ 



* /The probability of printing a star 
'is V2. The probability of printing a 
space is V2 . 



je 



Let's look more closely at statement 35. 

35 IF INT(2*RND(0)) = 1 THEN 50 

The possible 
values are 
and 1. 



The following statement will also do the job. Try it! 

35 IF RND(O) < 1/2 THEN 50 
Because . 



RND(O) < .5 is TRUE about V2 the time. 
RND(O) < .5 is FALSE about Vi the time. 
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In the following pattern the probability of printing a star is 1/10 
and the probability of printing a space is 9/10. LOOK FOR CON- 
STELLATIONS . . . MAKE UP YOUR OWN . . . ARE ANY 
SIGNS OF THE ZODIAC HERE? 



742,65 

* ******* 

** r * 

* * * * * * 

* * * * * ** 

* * * * 

* * * * * * * 

* * * * * 

* * * * * 

* * * * * * , 

* * * ** 

* * * ** * * 

** * * * * 

** * * * 

* * **** **** 

* * * * * * ** 

* * * * ** 

*' ' * * * 

* ** * * ** 

* * * * * 

* * * * * 
* *** * 

* * * * 
*** * * * * * 

* * ** 

* * ***** 

* * * * 

* ** * * * * * 

* * * * 

** * 

* * * *** 

* * ****** * *** 
****** * ** * 

** * * * * * * 

** * * ** * * ** 

* * * * *' 

* * * * 
* * * * ** * * 

** ******* * * * 

* * * ** 

** * * * * * * * 

* * * *** *** ** 

* * **** * * 



Did you look at it from the left? The right? The top? 
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Exercise 63. Write a program to generate random patterns like 
"the one on the preceding page. You can do it by changing one 
statement in our program on page 1-94. RUN it — look for con- 
stellations. 

Exercise 64. Modify your program of the preceding exercise so 
that the probability of printing a star is 1/20 and the probability 
of printing a space is 19/20. RUN it — look for constellations. 

Exercise 65. Why not enter the probability of printing a star 
along with M and TV? Begin your program with the statement 

10 INPUT M, N, P 

where 

M is the number of rows, 

N is the number of columns, and 

P is the probability of printing a star. 

But note: P must be entered as a decimal numeral such as .5 or 
.lor .05. 

Here is a RUN of our program. 



?20,65,.l 

* ******* 
** * 

* * * * * * 

* * * * * ** 

* * * * 

* * * * * * * 

* * * * * 

* * * * * 

* * * * * * 

* * * ** 

* * * ** * * 

** * * * * 

** * * * 

* * ** ** **** 

* * * * * * ** 

* * * * ** 

* * * * 

* ** * * ** 

* * * * * 

* * * * * 
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LITTLE BOXES 

Remember ... in BASIC, a variable refers to a location in the 
computer's memory. You can think of the variable as the name 
of the location. 



A L 



variable 
location 




] 



A location is a "box" in which we 
can store a number. 



Here is a box (location) with a number in it. 



37 



^1 



The number in the location is the 
'value of the variable. (The value 
of A is 37.) 



Subscripted Variables 

Are you acquainted with subscripted variables? 



Here is a subscripted variable ■ 



■*-*3 



This is the subscript • 
The symbol '* 3 ' is read 'x sub 3.' 
Here are some additional examples of subscripted variables. 



Po 




c 7 




k 8 




Xi 


y 4 


«i 




X2 


£2 


r 2 


Wo 


x 3 


Zx 



Read l a^ as 'a sub V 
Read 'c 7 ' as 'c sub 7' 
Read V 2 ' as V sub 2' 
and so on. 
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In BASIC, we can use subscripted variables, but we write them 
in a slightly different way. Like this: 



Here is a BASIC subscripted variable 



This is the subscript 



J 



The subscripted variables X(l), X(2) and Z(3) each corre- 
spond to a location 



X(l) 



X(2) 



X(3) 



Exercise 66. LET X(l) = 73. In other words, take pencil in 
hand and write the numeral "73" in the box labelled "AT(1)." Then 
do the following in similar fashion. 



(1) LETX(2)=67 



(2) LETX(3) = 85 



Suppose that X(l), X(2) and X(3) are scores obtained on 
three quizzes. Here is a program to compute and print the average 
score (the arithmetic mean of the three scores). 



10 LET X( 1>»73 
12 LET X<2> = 67 
14 LET X(3)«85 
20 LET S*X< 1)+XC2>+X<3) 
30 LET M-S/3 
40 PRINT M 
99 END 
RUN 
75 



Quiz 1. The score is 73. 
Quiz 2. The score is 67. 
Quiz 3. The score is 85. 



Add the three scores, then divide 
the sum by 3 and print the result. 

Yes, we know you can write a 
shorter program . . . but did you 
learn anything about subscripted 
variables? 
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Here is a better program. 



10 INPUT X<1),XC2)#X<3) 

20 LET S=XC 1>+X(2)+X<3> 

30 LET M=S/3 

40 PRINT M 

50 PRINT 

60 GO TO 10 

99 END 

RUN 

?73#67,85-« 

75 



With this program, we INPUT the 
three scores. 



X(l) 


73 






X(2) 


67 






X(3) 


85 



O.K., enter your scores. 



Exercise 67. Complete the following program to compute and 
print the arithmetic mean (average) of four scores: 

X(1),X(2),X(3) andX(4) 



10 INPUT - 
20 LET S= - 
30 LET M* « 
40 PRINT M 
50 PRINT 
60 GO TO H 
99 END 
RUN 



RUN your program for the follow- 
ing sets of data. Each set consists of 
four scores. 



73, 67, 85, 83 
82, 88, 97, 90 



SHOW THE RESULTS 
OF THE RUN 
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Next, let's change our program so that the data is called in by 
means of a READ statement instead of an INPUT statement. 



10 PRINT "XC1>"* "X(2>"* 


, X<3) M * ,, MEAN , » 




15 READ X(1)*XC2>* 


XC3) 








20 LET S»X( D+XC2) 


+XC3> 








30 LET M=S/3 










40 PRINT X< 1>,X(2> 


*X<3) 


»M 






60 GO TO 15 










80 DATA 73*67,85"" 










81 DATA 82*88*97 






Four sets of 
three scores. 


data. Each set 1 


82 DATA 93,89*95 








83 DATA 77*71* 67_ 










99 END 










RUN 










X(l) X(2) 






XC3) 


MEAN 


73 67 






85 


75 


82 88 






97 


89 


93 . 89 






95 


92.33333 


77 71 






67 


71.66667 



has 



DATA ERROR AT LINE 15 



Exercise 68. Change the above program to a program to com- 
pute and print the mean of four numbers X(l), X(2), X(3), and 
Z(4). Show the modified program below along with a RUN for 
the following sets of data: 



73, 67, 85, 83 
82, 88, 97, 90 
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Generalizing 

But what if there are five scores or six scores or seven scores? 
Shall we write a separate program for each case? Why not write 
one program that takes care of any number of scores . . . let's try. 

We want to write a program to compute the arithmetic mean of 
N numbers (quiz scores, golf scores, measurements . . . you name 
it) . Since we have N numbers, let's call them 

x(l),X(2),...,X(N). 

We tried the following program but it didn't work. We kept 
getting error messages. 



10 READ N 

20 READ X< 1>*X<2>, .. .,X(N) 

30 LET S-XC 1>+X(2)+...,LIST 

10 READ N 

20 READ X(1),X<2>,000*X<N> 

30 LET S=XCl)+XC2)+000+X(N) 

40 LET M=S/N 

50 PRINT N*S*M-*I 

60 GO TO 1 

70 DATA 3*73*67,85 

71 DATA .3* 82* 88, 97 

72 DATA 4,73*67*85,83. 

73 DATA 5,66*78,71*82*75 
99 END 



Our computer didn't like these two 
statements. 



Note that we want N, S and 
M printed, but not the Xs. 



Each DATA statement has the 
value of N followed by the N 
values of 



X(1),.Y(2), X(N). 

For example 



92 DATA 4, 73, 67, 85, 83 

N XCi) X(2) XC3) XC4) 

Our program above didn't work because we did not work within 
the rules of the BASIC language. Read on! 
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Variable Subscripts 



The subscripted variable 




►X(K) 




has a variable s 


ubscript 




If K = 1, then X(K) 


is 


X(l). 




If K = 2, then X(K) 


is 


X(2). 




If K = 3, then X(K) 


is 


X(3). 




Got the idea? Let's find out. 












A(l) 


8 1 


B(l) 


3.7 


I 


1 


















A(2) 


-6 


B(2) 




9.2 


' 


2 


















A(3) 


10 


C(l) 


3 


K 


3 


















A(4) 


13 


C(2) 


4 


X 


4 



Write the value of each variable below. 

A(l)= 1= 

A(2)= J= 

A(K) = _ A(X) = 

B(J) = C(l) = 



A(I)=, 
A(J) = 
B(I)=. 
C(J) =. 



Ready for some slightly more difficult ones? 

A(I+1)= A(I + 2)= A(I + 3)= 

A(2*I) = A(2*J-1)= . A(X-3)=__ 

A(I + J) = A(X - K + J) =__, A(J*K - X) =. 
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Here is a program to compute and print the sum and mean of 
N numbers X(l ), X(2), ...., X(N). 



10 READ N 



20 FOR K=l TO N 
33 READ X(K) 
27 NEXT K 






30 LET S-0 
33 FOR K-l TO N 
35 LET S=S+X(K> 
37 NEXT K 







40 LET M=S/N 
50 PRINT N, S,M 
60 GO TO 10 

70 DATA 3,73,67,85 

71 DATA 3,82,88,97 

72 DATA 4,73,67,85,83 

73 DATA 5,66,78,71,82,75 
99 END 

RUN 
3 225 

3 267 

4 308 

5 372 



READ X(l), X(2), . . . , X(N) 



LETS = X(l) + X(2) + . . . + 
X(N) 



75 
89 
77 
74.4 



DATA ERROR AT LINE 10 



Here is a partial trace of the program, using the first set of data 
( the data in Line 70 ) . 



STATEMENT 


N 


K 


X{\) 


X(2) 


X(3) 


10 READ N 


3 










20 FOR K = 1 TO N 


3 


1 








23 READX(K) 


3 


1 


73 






27 NEXT K 


3 


2 


73 






23 READ X(K) 


3 


2 


73 


67 




27 NEXT K 


3 


3 


73 


67 




23 READ X(K) 


3 


3 


73 


67 


85 


27 NEXT K 


3L ■ 


4 


73 


67 


85 




K > N. Therefore the loop terminates. 
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Exercise 69. Let's continue the trace that we began on the pre- 
ceding page. We will show the statements; you fill in the K, S and 
M columns. Remember ... we left X(l), X(2) and X(3) as 
follows. 



X(l) 



73 



X(2) 



67 



X(3) 



85 



STATEMENT 


N 


K 


S 


M 


OUTPUT 


30 LET S = 


3 










33 FOR K == 1 


3 










35LETS = S + X(K) 
37 NEXT K 


3 
3 










35LETS = S + X(K) 
37 NEXT K 


3 
3 










35 LET S = S + X(K) 
37 NEXT K 


3' 
3 










40 LET M - S/N 
50 PRINT N, S, M 
60 GO TO 10 


3 
3 
3 










and so on. 













Exercise 70. For each program segment (portion of a program) 
fill in the affected locations. 



10 FOR N»l 


TO 4 
■ 2tN 


P(D \_ 


1 


P(2) 
P(4) 




20 LET P(N) 








30 NEXT N 


P(3) [" 


1 














TO 6 
«K*F(K-1 > 


F(1) □ 


F(2) 
F(4) 
F(6) 








70 LET F< 1) 




75 FOR K«2 
80 LET F(K) 


F(3) | 


1 




85 NEXT K 






F(5) Q 


1 
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Subroutines 

A new idea — subroutines — and three new statements, GOSUB, 
RETURN, and STOP. Let's use them in a rewrite of the program 
on page 1-103. 



10 READ N 
20 GOSUB 100 
• 30 LET M*S/N 
40 PRINT N,S,M 
50 GO TO 10 
60 STOP 



100 FOR K»l TO N 
110 READ XCK) 
120 NEXT K 
130 LET S=0 
140 FOR K-l TO N 
150 LET S=S+XCK) 
160 NEXT K 
170 RETURN 



mam program 



subroutine 



300 DATA 3,73*67,85 

310 DATA 3,82,88,97 database 

320 DATA 4,73,67,8 5,8 3 

330 DATA 5,66,78,71,82,75 

999 END 

This program has a main program, one subroutine and a data 
base. The subroutine in lines 100-170 is called by the GOSUB 
in line 20. 

Now, RUN the above program. The results should be the same 
as for the program on page 1-99. 

When the GOSUB in line 20 calls the subroutine, the computer 
goes to line 100 and executes the commands from line 100 to 160. 
The RETURN statement in line 170 sends the computer to the 
line following the GOSUB (line 30) that sent the computer to the 
subroutine. The STOP statement in line 60 sends the computer to 
the END statement, thus signaling the completion of the program. 

A program may contain more than one subroutine. Suppose that 
we wish to print headings for each of the columns printed by the 
above program. We can do this by adding one statement to the 
main program and including one more subroutine. 
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5 GO SUB 200 new main program statement 



200 print "N M i "S"» "M" new subroutine 

210 PRINT 
220 RETURN 

Now LIST the program and then RUN it. 

5 GOSUB 200 

10 READ N 

20 GOSUB 100 

40 PRINT N, S,M 

50 GO TO 10 

60 STOP 

100 FOR K-l TO N 

110 READ X(K) 

120 NEXT K 

130 LET S=0 

140 FOR K-l TO N 

150 LET S«S+X(K) 

160 NEXT K 

170 RETURN 

200 PRINT "N ,, f ,, S"i"M n 

210 PRINT 

220 RETURN 

300 DATA 3,73* 67,85 

310 DATA 3,82,88,97 

320 DATA 4,73,67,85,83 

330 DATA 5,66,78,71,82,75 

999 END 

RUN 

N S M 

3 
3 
4 
5 

DATA ERROR AT LINE 10 

A program may have many GOSUB's, each of which go to the 
same subroutine; this is especially helpful when the same (or sim- 
ilar) statements appear more than once in the same program. 

When you use subroutines, keep them distinct from the main 
program. This is normally done by placing them after the main 
program. Remember that the last statement in the main program 
must be a STOP or a GO TO (e.g., GO TO 999— the END 
statement) . 
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225 





267 





308 





372 






SNOOPY AND THE RED BARON 

It is 1976 and the candidates for President of the United States 
are Snoopy and the Red Baron. We conducted a poll by asking 
29 of our friends to respond t6 the following question. 



Who should be President 


in 1976? 


Circle the number to the left of the 


candidate of your choice. 




1. Snoopy 




2. Red Baron 





You guessed it . . . we are going to write a program to direct 
the computer to count the votes for each candidate, Snoopy and 
the Red Baron. First, let's record the 29 votes in one or more 
DATA statements. Remember, each vote is a "1" or a "2." 



91 DATA 2,1,2,1,1,2,2,2,1,1,2,2,2,1,1 

92 DATA 2,2,1,1,2,2,2,1,2,1,1,1,2,2 



Before continuing, we ask you the following questions. 
How many votes did Snoopy get? 



How many votes did Red Baron get?. 



Add the number of votes obtained by Snoopy and the number 
obtained by the Red Baron. The total should be 29 ... if not, 
check your work. 



1-107 



We think you answered the questions on the preceding page 
as follows. 

1. You counted the number of "Is" in the two DATA state- 

ments. The result is the number of votes obtained by 
Snoopy. 

2. Then you counted the number of "2s" in the two DATA 

statements. The result is the number of votes obtained by 
the Red Baron. 

That's fine, but we are going to use a different method. First, we 
define two subscripted variables and assign the value zero (0) to 
each. Like this : 



C(l) 







C(2) 







Then we read the 29 votes, one by one. If the vote (V) is a "1" 
we increase the value of C(l) by one. But if the vote is a "2," we 
increase the value of C(2) by one. After we have read all 29 
votes, C(l) will contain the number of votes for Snoopy and C(2) 
will contain the number of votes for the Red Baron. Here is the 
program and the results of a RUN. 



10 LET C( i> = 

20 LET C<2>-0 

30 FOR K»l TO 29 

40 READ V 

50 LET CCV)-CCV>+1 

60 NEXT K 

70 PRINT CC1)*C<2> 

91 DATA 2*1*2*1*1*2,2,2,1,1,2,2,2,1,1 

92 DATA 2*2*1*1*2*2*2*1*2,1,1*1,2*2 
99 END 

RUN 



If you don't understand the pro- 
gram, study the trace on the next 
page. 



13 

L 



16 



■ Vote count for Snoopy. 
■Vote count for the Red Baron. 
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Exercise 71. Study the following partial trace of our vote count- 
ing program and fill in the missing information under the K, V, 
C(l) and C(2) columns. 



STATEMENT 


K 


V 


C(l) 


C(2) 


lOLETC(l) =0 
20LETC(2) =0 













30 FOR K = 1 TO 29 


1 










40 READ V 


1 


2 








50 LET C( V) = C( V) + 1 
60 NEXT K 


1 

2 


2 
2 








40 READ V 


2 


1 






50 LET C(V) = C(V) + 1 
60 NEXT K 


2 
3 


1 
1 






40 READ V 


3 


2 




1 


50 LET C( V) = C(V) + 1 
60 NEXT K 


3 
4 


2 
2 




2 
2 


40 READ V 










50LETC(V) =C(V) + 1 
60 NEXT K 










40 READ V 










50LETC(V) =C(V) + 1 
60 NEXT K 










40 READ V 










50 LET C(V) = C(V) + 1 
60 NEXT K 










40 READ V 










50 LET C(V) ■ = C(V) + 1 
60 NEXT K 










and so on. 
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Exercise 72. We conducted another poll, asking the same ques- 
tion. But this time, we asked 32 people to vote for Snoopy or the 
Red Baron. Here are the votes. 

1,1,2,1,2,2,2,2,1,1,2,1,1,1,1,1 

2,2,1,2,1,1,2,2,2,1,1,1,2,1,1,2 

Use our program to process the above data. You will have to 
change Lines 30, 91 and 92. 

Exercise 73. Conduct your own poll. Then use our program to 
process the data. You will probably have to change Lines 30, 91 
and 92. 

Exercise 74. Figure out how to use the following program to 
count votes. Change it to count the votes of either Exercise 68 
or 69. 



10 READ N -^ N votes 

20 LET CC 1) = I 

25 LET CCS>=0 

30 FOR K=* 1 TO N ~+ ■ 

40 READ V 

50 LET C(V) = CCV)+1 

60 NEXT K 

70 PRINT CC 1)*C<2) 

90 data 29 -« Value of N. 

91 DATA 2*W2jt»li2i2,2»lil*2>2»2»l»l 

92 DATA 2*2* 1* 1*2*2, 2, 1*2* 1* 1* I»2i2 
99 END 

RUN 
13 16 
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No Opinion 

Here is a slightly different questionnaire. 



Who should be President in 1976? 
Circle the number to the left of the 
candidate of your choice. 

1 . Snoopy 

2. Red Baron 

3. No Opinion 



We asked 37 people and got the following votes. 

1,3, 1,2,3, 1,1,2,3, 1,1,2, 1,1, 2 ; 1,2, 2, 2 
2,1,3,2,2,1,2,1,1,3,1,1,2,3,1,1,2,3 

How many votes for Snoopy? 



How many votes for the Red Baron? 
How many No Opinions? 



TOTAL of above categories? 



Now we have three categories, so we use three subscripted 
variables. 



C(l) 



Snoopy 



/ 



C(2) 



Red Baron 



/ 



C(3) 



No Opinion 



/ 



Exercise 75. Change our program of Exercise 74 into a program 
to process data such as the above (three categories instead of two). 
You will have to add a line to set C(3) to zero, change Line 70 
and, of course, change Lines 90, 91 and 92. 
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Exercise 76. In a newspaper, the results of a poll might be pre- 
sented in a table such as the following. 



CANDIDATE 


VOTES 


PERCENT 


Snoopy 


17 


46% 


Red Baron 


13 


35% 


No Opinion 


7 


19% 




(% of total vote )^ 



Modify your program of Exercise 75 so that the results are 
printed in a table like the one shown above. 

Exercise 77. But suppose there are three candidates. For exam- 
ple, our questionnaire might look like this. 



Who should be President in 1976? 
Circle the number to the left of the 
candidate of your choice. 


1. 


Snoopy 




2. 


Red Baron 




3. 


Lucy 




4. 


No Opinion 





Write a program to count votes obtained by using the above 
questionnaire. Invent your own data . . . print results in a table 
similar to the table in Exercise 76. 
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More Choices 

We have used questionnaires with two choices, three choices and 
four choices. In each case, the choices have been political candi- 
dates or a "No Opinion" category. Our categories don't have to be 
political, however. Here are several questionnaires that you can use 
to gather data. Do so . , . then use the program on the following 
page to compute the results of each of your polls. 



What is your favorite mu- 
sical group? Circle the 
number to the left of your 
choice. 

1. Beatles 

2. Blood, Sweat and 
Tears 

3. Crosby, Stills, Nash & 
Young 

4. Jefferson Airplane 

5. Lawrence Welk 

6. Rolling Stones 

7. None of the Above 



Which breakfast cereal do 
you prefer? Circle the 
number to the left of your 
choice. 

1. Trix 

2. Total 

3. Cheerios 

4. No Opinion 



What is your favorite individual sport? Circle the num- 


ber to the left of your choice. 




1. Badminton 


2. Bowling 


3. Boxing 


4. Fencing 


5. Golf 


67 Gymnastics 


7. Handball 


8. Ice Skating 


9. Karate 


10. Roller Skating 


1 1 . Snow Skiing 


12. Squash 


13. Surfing 


14. Swimming 


15. Tennis 


16. Track 


17. Water Skiing 


18. Wrestling 


19. None of Those 






Listed 







If someone circles two or more choices, throw out their ques- 
tionnaire . . . our program can't handle this case. 
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Here is our program. The lines that begin with the word "RE- 
MARK" are remarks! They have no effect on the execution of the 
program. You may insert a REMARK line wherever you please. 

100 REMARK***THE PEOPLE'S POLL 

200 REMARK***M IS THE NUMBER OF CATEGORIES CM<=99> 

21 ?i?„ C £" ) "*-~- Let's talk about this below. 
220 READ M 

500 REMARK***SET C(l) , CC2), .. .,C<M) ALL TO ZERO 

310 FOR K = l TO M 

520 LET C(K)=0 

550 NEXT K 

400 REMARK***PRINT A HEADING 

410 PRINT "CATEGORY", "VOTES" 

420 PRINT 

500 REMARK***THERE ARE N VOTES 

510 READ N 

600 REMARK***READ N VOTES AND COUNT BY CATEGORY 

610 FOR Ksl TO N 

620 READ V 

650 LET C(V)=CCV)+l 

640 NEXT K 

700 REMARK***PRINT RESULTS (14 LINES, 2 NUMBERS PER LINE) 

710 FOR K = l TO M 

720 PRINT K,COO 

730 NEXT K 

900 REMARK***BEGIN DATA LISTS 

90 1 DATA «* Put your value of M here. 

902 DATA ■« Put your value of N here. 

905 DATA « , ■ Record your votes, beginning here. 

999 END Use as many DATA statements as 

necessary. 



*** O.K., now RUN it! *** 
The statement 210 DIM C(99) 



is a DIMension statement. 7 It tells the computer to permit sub- 
scripts of C up to and including 99. Without a DIM statement, the 
largest permissible subscript is 10. We chose 99 arbitrarily. We 
cduld have chosen 25 or 100 or 150 or any limit we wanted. 



7 Not necessary on EduSystems 20 or 25. 
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Generation Gap 

Snoopy and the Red Baron ... a new questionnaire. 



Ql. Who should be President in 1976? Circle the 
number to the left of your choice. 

1. Snoopy 

2. Red Baron 

3. No Opinion 

Q2. Circle the number to the left of the phrase 
that describes your age group. 

1 . Under 30 years old 

2. 30 years old or older. 



The first question has three possible responses (1, 2 or 3) and, 
the second question has two possible responses (1 or 2). Each 
completed questionnaire gives us two numbers. For example, 

A vote for Snoopy : . . by a person 30 years old or older. 

We conducted a survey. We asked 32 people to vote, therefore 
we got back 32 pairs of numbers ... 64 numbers in all. 

1, 2, 2, 1, 3, 2, 1. 1. 2. 2. 2. 2. 1, 1, 2, 1, 1, 2, 2, 2, 2, 2, 3, 1 

2, 2, 1, 1, 1, 1, 2, 2, 1, 2, 3, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2 

LI, 1,2, 2, 1,1,2,2,2, 1,1,3, 1,1,1 

Begin here and circle or underline each pair of numbers. The first 
number in each pair is the vote ( 1, 2, or 3) and the second number 
in each pair is the age group of the voter. 

How many people under 30 voted for Snoopy? 



How many people 30 or older voted for Snoopy? 
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Fortunately, BASIC permits us to use variables with two sub- 
scripts. 



UNDER 30 


, 30 OR 
C(l,2) 

C(2, 2) 

C(3, 2) 


OVER 


Snoopy C(l, 1) 












Red Baron C(2, 1) 












No Opinion C(3, 1) 






Here is a variable with two subscripts : 

First subscript 


C(3, 1) 



Have you guessed the following? 

C ( 1 , 1 ) = number of votes for Snoopy by people under 30. 

C( 1, 2) = number of votes for Snoopy by people 30 or over. 
C(2, 1 ) = number of votes for Red Baron by people under 30. 
Your turn. Complete the following. 

C(2, 2) = 

co, i) = ; 

C(3, 2) = 

Here is our data again, copied from the preceding page. Use it to 
fill in the boxes (C(l,l), C(l,2), etc.) at the top of the page. We 
suggest that you look at each pair of numbers and, for each pair, 
put a mark in the appropriate box. After you have used all pairs, 
simply count the number of marks in each box and write in the 
number. 

1, 2, 2, 1, 3, 2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 1, 1,2, 2, 2, 2, 2, 3, 1 

2, 2, 1, 1, 1, 1, 2, 2, 1, 2, 3, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2 
1,1,1,2,2,1,1,2,2,2,1,1,3,1,1,1 
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Here is a BASIC program to count the votes. We have included 
several REMARKS to describe what's happening. 

100 REMARK***SNOOPY,RED BARON AND THE GENERATION GAP 

200 REMARK***PUT ZEROS IN THE BOXES 

210 FOR 1=1 TO 3 

220 FOR J=l TO 2 

230 LET C<I,J>=0 

240 NEXT J 

250 NEXT I 

300 REMARK***READ A NUMBER PAIR AND UPDATE A BOX 

310 REMARK*** V= VOTE AND A=AGE GROUP 

320 FOR K=l TO 32 

330 READ V, A 

340 LET CCV, A) = C(V,A>+1 

350 NEXT K 

400 REMARK***PRINT THE RESULTS 

410 PRINT "CANDIDATE", "UNDER 30", "30 OR OVER" 

420 PRINT 

430 PRINT "SNOOPY", C< 1, I ),C< 1,2) 

440 PRINT "RED BARON", CC 2, 1 >, C<2, 2> 

450 PRINT "NO OPINION", CC3, 1),CC3, 2) 

900 REMARK***HERE IS THE DATA 

901 DATA 1,2,2,1,3,2,1,1,2,2,2,2,1,1,2,1,1,2,2,2,2,2,3,1 

902 DATA 2,2,1,1,1,1,2,2,1,2,3,2,2,2,2,1,1,1,1,1,1,1,1,2 

903 DATA 1, 1, 1> 2, 2, 1, 1,2, 2, 2, 1, 1,3, 1, 1, 1 
999 END 



RUN 

CANDIDATE UNDER 30 30 OR OVER 

SNOOPY 10 6 

RED BARON 4 8 

NO OPINION 2 2 

Study the above program and understand it before you move on. 
Perhaps the following comments will help. 

If 1=1 and J=l then C(I, J) is C(l, 1) 
If 1=1 and J = 2 then C(I, J) is C(l, 2) 
If 1 = 2 and J = l then C(I, J) is C(2, 1) 

and so on. 

Remember . . . 

C(V, A) 

V=l,2,oxy ^4 = lor 2 

If V=l and A = 2 then C(V> A) is C(l,2). 
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Exercise 78. Modify our program on the preceding page so that 
the results are printed as follows. 

CANDIDATE UNDER 30 30 OR OVER TOTAL VOTES 

SNOOPY 10 6 16 

RED BARON 4 8 12 

NO OPINION 2 2 4 



Exercise 79. Modify your program of Exercise 78 so that instead 
of printing the number of votes, the computer prints the percent of 
the total number of votes, rounded to the nearest whole number 
percent. For example, using the same data as in Exercise 78, the 
computer should print the following results. 

CANDIDATE UNDER 30 30 OR OVER TOTAL 

SNOOPY 31 Z 19 Z 50 Z 

RED BARON 13 Z 25 Z 38 Z 

NO OPINION 6 Z 6 Z 12 Z 

Exercise 80. Change the questionnaire. Add a candidate and 
add an age group as follows. 

CANDIDATES AGE GROUPS 

1. Snoopy 1. Under 21 

2. Red Baron 2. 21-29 

3. Lucy 3. 30 or older 

4. No Opinion 

Write a program to count votes and print the results under the 
following headings. 



CANDIDATE UNDER 21 21-29 30 OR OVER 



1-118 



Reprise 

A BASIC variable may have 

no subscript: A, B, C, D, . . . 

one subscript: A(3), B(K), C(X + 2), . . . 

two subscripts: A(l,2), B(I,J), C(X,X + 1), . . . 

A subscript may be 

a numeral or a variable or an expression. 

A subscript must have a non-negative value. Furthermore, if the 
subscript is not a whole number, then the computer uses the whole 
number of the subscript. For example : 

X(3.7) is interpreted as X(3). 

IfK = 2.9thenP(K)isP(2). 

The computer permits a subscript value of zero (0). 

10 LET AC0>»100 
20 PRINT AC0> 
99 END 

If a subscript value exceeds 10, you may have to use a DIM 
statement. Otherwise, this may happen 

No DIM statement here. 
10 LET AC 105-110 
20 PRINT AC 10) 

30 LET AC 1 1 )« 1 1 1-* In Line 30, we used a subscript of 

40 PRINT AC 11) 11 

99 END 
RUN 
110 

SUBSCRIPT ERROR AT LINE 30 
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So let's add a DIM statement 



5 DIM AC 1 l)-«i ■ This DIM statement tells the com- 

10 LET AC 10>*110 puter that the subscript of A may 

20 PRINT AC 10) be at most U. 

30 LET AC 1D-111 
40 PRINT AC 11) 
99 END 

RUN 
1 1 Now the program works as desired. 

Ill 

A DIM statement has the following general form 

line number DIM list of subscripted variables 



For example: 10 DIM A (20) ,B (3I9),C (20, 12)D (5, 7) 



line number 
DIM 




~7 



list of subscripted variables . 

The above DIM statement tells the computer that: 

The subscript of A must me ^ 20. 

The subscript of B must be ^ 30. 

The first subscript of C must be < 20. 

The second subscript of C must be < 12. 

The first subscript of D must be < 5. 

The second subscript of D must be < 7. 

If you don't mention a subscripted variable in a DIM statement, 
then the computer assumes that its subscript or subscripts must be 
less than or equal to 10. 
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Below are two programs. RUN each program using the given 
data. Describe to yourself what each program does, then make up 
your own data and RUN it again. 

10 DIM KC50),A<50> 

15 READ N 

20 FOR J»l TO N 

25 READ K< J) Maybe you can figure out what the 

30 NEXT J program does without a RUN. Try 

35 LET S»0 . Sf 

40 FOR J=l TO N 

45 READ AC J) 

50 IF A(JX>K(J) THEN 60 

55 LET S«S+l 

60 NEXT J 

65 PRINT S 

70 GO TO 35 

80 DATA 12 

81 DATA 2,1,2,3,4,1,3,2,1,4,4,1 

82 DATA 2,1,1,3,4,1,3,1,1,3,4,2 

83 DATA 2,1,2,3,3,1,3,2,1,4,4,1 

84 DATA 1,1,1,3,4,1,3,2,2,4,4,1 

85 DATA 3,4,2,1,4,1,2,4,3,4,1,3 
99 END 



100 


DIM X(30) 


















200 


READ N 


















210 


FOR K-l TO 


N 
















220 


READ X(K) 


















230 


NEXT K 


















300 


FOR J-l TO 


N- 


1 














310 


FOR K«J TO 


N 
















3£0 


\J X(J)-X(K)L 


L£J_ 














100 


DIM X<3GL 






200 


READ N 


















210 


FOR K=l TO 


N 
















220 


READ X(K) 


















230 


NEXT K 


















300 


FOR J=l TO 


N- 


1 














310 


FOR K-J TO 


N 
















320 


IF XCJX«XCK) 


THEN 360 










330 


LET T-XCJ) 


















340 


LET X(J)-X<K> 
















350 


LET X<K)»T 


















360 


NEXT K 


















370 


NEXT J 


















400 


FOR K»l TO 


N 
















410 


PRINT X(K)J 


t 
















420 


NEXT K 


















900 


DATA 20 


















901 


DATA 66, 75j 


.59 


,93, 


77, 


8 5, 


48, 


92, 


67, 


78 


902 


DATA 83, 47, 


.96 


,70, 


66, 


73, 


59, 


75, 


80, 


53 


999 


END 
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100 REMARK*** DECIMAL MULTIPLICATION TABLE 

200 REMARK* **6ENERATE AND STORE THE TABLE 

210 FOR A«l TO 9 

220 FOR B«l TO 9 

230 LET C(A#B)«A*B 

240 NEXT B 

250 NEXT A 

300 REMARK***PRINT THE TABLE 

310 FOR A»l TO 9 

320 FOR B»l TO 9 

330 PRINT CCA,B>; 

340 NEXT B 

343 PRINT 

347 PRINT 

350 NEXT A 
999 END 



READY 
RUN 
1 2 



We avoided A = and B = 0. 
You may wish to change the pro- 
gram to include these values. 



2 
3 
4 
5 
6 
7 



3 
6 
9 



4 5 6 7 8 9 
8 10 12 14 16 18 
12 15 18 21 24 27 
8 12 16 20 24 28 32 36 
10 15 20 25 30 35 40 45 
12 18 24 30 36 42 48 54 
14 21 28 35 42 49 56 63 



8 16 



32 40 48 56 64 72 



9 



18 27 36 45 54 63 72 81 



Exercise 81. Modify the program so that the computer prints the 
decimal addition table. 



Exercise 82. Modify the program so that the computer prints the 
octal (base 8) multiplication table. 8 (Remember — the base 8 digits 
are: 0, 1, 2, 3,4, 5, 6 and 7.) 



8 If you don't understand octal, see Introduction to Programming 1972. 
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KALEIDOSCOPE 

CoinTosser 

The following program causes the computer to simulate (imi- 
tate) coin tossing. During the simulated tossing, no printout occurs. 
Instead, the computer counts the number of heads and tails that 
happen. After the required number of tosses have been completed, 
the computer prints the counts. 

10 PRINT "HOW MANY TOSSES"; T is the number of tosses. — • 

15 INPUT T-* ' 

20 LET NC1)=0 N(l) = number of HEADS. 

25 LET N<2>=0 N(2) = number of TAILS. 

30 FOR K=l TO T 

40 LET x»INT<2*RND(0>)+l 1 for HEADS and 2 for TAILS. 

50 LET N(X)»N(X)+1 

60 NEXT K 

70 PRINT 

80 PRINT "RESULTS: "JNC 1); "HEADS AND"J N( 2> ; "TAILS" 

85 PRINT 

90 GO TO 10 

99 END 



RUN 

HOW MANY TOSSES? 100 

RESULTS: 50 HEADS AND 50 TAILS 

HOW MANY TOSSES? 100 

RESULTS: 51 HEADS AND 49 TAILS 

HOW MANY TOSSES? 1000 

RESULTS: 500 HEADS AND 500 TAILS 

HOW MANY TOSSES? 1000 

RESULTS: 499 HEADS AND 501 TAILS 

HOW MANY TOSSES? 1000 

RESULTS: 501 HEADS AND 499 TAILS 

HOW MANY TOSSES?-* Your turn. Carry on. 
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Dice 

Next ... a program to simulate rolling a pair of dice. For each 
roll, the computer prints the number of spots showing for each die 
and the total spots — both dice. 

10 PRINT "HOW many ROLLS"; — Let's have T rolls of the pair of 

20 INPUT T-*- dice. 

30 FOR R=l TO T 

50 LET B=INR(6*RND(0>>+1 . , . 4 „ ... 

60 PRINT A,B,A+B A = number of spots, die (1). 

70 NEXT R > * s *>n^ B = number of spots, die (2). 

80 PRINT 

90 GO TO 10 

99 END ^ Total spots, both dice. 



Exercise 83. Modify the above program so that the computer 
does not print the results of each roll. Instead, after all rolls have 
been completed, have it print a frequency distribution showing the 
number of times the total number of spots (both dice) came up 
2, 3, 4, 5, . . . , 12. Here is a printout of our program. 



HOW MANY ROLLS? 1000 

NUMBER OF TIMES 



TOTAL SPOTS NUM 


2 


25 


3 


55 


4 


82 


5 


105 


6 


135 


7 


180 


8 


139 


9 


96 


10 


86 


11 


65 


12 


32 
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23 Matches 

Have you ever played 23 matches? It goes like this ... we start 
with 23 matches. You move first. You may take 1, 2 or 3 matches. 
Then I move ... I may take 1, 2 or 3 matches. You move, I move, 
and so on. The one who is forced to take the last match loses. Here 
is a program to enable you to play 23 matches against the com- 
puter. Enter it and type RUN. 

100 REMARK***23 MATCHES 

110 LET M=23 

115 PRINT 

120 PRINT "WE START WITH 23 MATCHES. WHEN IT IS YOUR" 

130 PRINT "TURN* YOU MAY TAKE 1,2, OR 3 MATCHES. THE" 

140 PRINT "ONE WHO MUST TAKE THE LAST MATCH LOSES." 

150 PRINT 

200 REMARK***THE HUMAN MOVES 

205 PRINT 

210 PRINT "THERE ARE N0W";M; "MATCHES" 

215 PRINT 

220 PRINT "HOW MANY MATCHES DO YOU TAKE?"; 

230 INPUT H 

240 IF H>M THEN 260 

250 IF H=INT(H> THEN 252 

251 GOTO 260 

252 IF H>0 THEN 254 

253 GOTO 260 

254 IF H<4 THEN 280 

260 PRINT "YOU CHEATED! I 'LL GIVE YOU ANOTHER CHANCE. " 

270 GOTO 215 

280 LET M=M-H 

290 IF M=0 THEN 410 

300 REMARK***THE COMPUTER MOVES 

310 LET R»M-4*INTCM/4> 

320 IF R<>1 THEN 350 

330 LET C=INT(3*RND(0))+1 

340 GOTO 360 

350 LET C=(R+3)-4*INT<(R+3)/4) 

360 LET M=M-C 

370 IF M=0 THEN 440 

375 PRINT 

380 PRINT "I TOOK"; C; "MATCHES" 

390 GOTO 200 

400 REMARK***SOMEBODY WON<SEE LINES 290 AND 370> 

410 PRINT 

420 PRINT "I WON f ! f BETTER LUCK NEXT TIME." 

430 GOTO 100 

440 PRINT 

450 PRINT "O.K. SO YOU WON. LET'S PLAY AGAIN." 

460 GOTO 100 

999 END 

We show a RUN on the following page (we lost) . 
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WE START WITH 23 MATCHES. WHEN IT IS YOUR 
TURN, YOU MAY TAKE 1j2, OR 3 MATCHES. THE 
ONE WHO MUST TAKE THE LAST MATCH LOSES. 



THERE ARE NOW 23 MATCHES .-Human (that's me) 

HOW MANY MATCHES DO YOU TAKE?? 3 

I TOOK 3 MATCHES Computer takes 3 matches. 

THERE ARE NOW 17 MATCHES 

HOW MANY MATCHES DO YOU TAKE?? 2 

I TOOK 2 MATCHES 

THERE ARE NOW 13 MATCHES 

HOW MANY MATCHES DO YOU TAKE?? 3 

I TOOK 1 MATCHES 

THERE ARE NOW 9 MATCHES Quite illegal! 

HOW MANY MATCHES DO YOU TAKE?? 4^ 

YOU CHEATED! I'LL GIVE YOU ANOTHER CHANCE. We got Caught! 

HOW MANY MATCHES DO YOU TAKE?? 1 

I TOOK 3 MATCHES 

THERE ARE NOW 5 MATCHES 

HOW MANY MATCHES DO YOU TAKE?? 2 

I TOOK 2 MATCHES 

there ARE NOW l MATCHES Nice try, but again 

y^we got caught. 
HOW MANY MATCHES DO YOU TAKE?? 0^ 
YOU CHEATED! I'LL GIVE YOU ANOTHER CHANCE. 

HOW MANY MATCHES DO YOU TAKE?? 2 

YOU CHEATED! I'LL GIVE YOU ANOTHER CHANCE. 

HOW MANY MATCHES DO YOU TAKE?? 1 

I WON!!! BETTER LUCK NEXT TIME. 



Can you beat the computer? Try it! 
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Rounding a Number 

Sometimes we want to round a number. If you don't know what 
we mean by "round," study the following program and the RUN 
of it. 



10 REMARK*** ROUND TO THE NEAREST INTEGER 
20 PRINT " X", "X ROUNDED" 
30 PRINT 
40 READ X 

50 LET R»lNT<x+.5>-*i R = X rounded to nearest integer. 

60 PRINT X, R 

70 GOTO 40 

80 DATA 0, 1,2*2. 78,3.14,8.999,9.5,-3. 7,-3. 2 

99 END 



X 


X ROUNDED 








1 


1 


2 


2 


2.78 


3 


3.14 


3 


8.999 


9 


9.5 


10 


-3.7 


-4 


-3.2 


-3 



Exercise 84. Modify the program so that X is rounded to two 
decimal places instead of to the nearest integer. (To the nearest 
penny!) Use the following DATA statements. 



DATA ERROR AT LINE 40 

DATA 3. 142,2.718,6.555,9.99 3, 7.99 5 
DATA -3. 142,-2.718,-6.555,-7.993,-7.995 
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Miscellaneous Math 

Previously we discussed two BASIC functions (INT and SQR) 
that are used to perform mathematical operations. BASIC also in- 
cludes other mathematical functions to help you calculate loga- 
rithms, exponential equivalents, absolute values, and signs of 
values. The following examples illustrate these additional functions. 

LOG 

The LOG function returns the natural logarithm of X to the 
base e (loggX). Line 20 in the following program contains a LOG 
function used to convert several values to their logarithmic equiv- 
alents. 



10 READ X 












20 PRINT LOG(X) 












30 DATA 54.59815,22026, 


.47, 


12345, 


,200, 


.720049E11 


40 60 TO 10 












99 END 












RUN 












4 












10 












9.421006 












4.60517 












25 












DATA ERROR AT LINE 


10 











EXP 

The exponential (EXP) function raises the number e to the 
power of x. EXP is the inverse of the LOG function. The following 
program prints the exponential equivalents of several values. Note 
that the input values below are the output values from the LOG 
function example. 

10 READ X 

20 PRINT EXP(X) 

30 DATA 4,10,9.421006,4.60517,25 

40 GO TO 10 

99 END 

RUN 

54.59815 

22026.46 

12345 

99.99999 

7.200490E+10 

DATA ERROR AT LINE 10 
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ABS 

The absolute (ABS) function returns an absolute value for 
any input value. Absolute value is always positive. In the following 
program, various input values are converted to their absolute values 
and printed. 



10 READ X 

20 LET X=ABS(X) 

30 PRINT X 

40 DATA -35, .7, 2, 25E10, 105555567,10.12345 

50 GO TO 10 

99 END 

RUN 

35.7 

2 

2.500000E+11 

1 .055556E+08 

10.12345 

DATA ERROR AT LINE 10 



SGN 

The sign (SGN) function returns the value 1 if x is a positive 
value, if x is 0, and — 1 if x is negative. The following program 
illustrates the use of the SGN function. 



10 READ A,B,C 

20 PRINT • , A = W A, M B = , *B, ,, C-"C 

30 PRINT • , SGN(A) = "SGN(A) t "SGN(B) = M SGN(B),"SGN(C) = M SGN(C) 

40 DATA -7.32,.44,0 

50 GO TO 10 

99 END 

RUN 

A=-7.32 B = .44 C-0 

SGN<A)=-1 SGN<B)=l SGN(C) = 

DATA ERROR AT LINE 10 
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Say Something in Trigonometry 

If you haven't had trig, just skip this page. But if you do know 
something about trig, read on! 

Let R be the measure of an angle, given in radians. 



10 PRINT "R", "SIN<R>", "COSCRV, "TANCR) ", "ATN<R V 

20 PRINT 

30 READ R 

40 PRINT R, SINCR>#COSCR),TAN<R),ATN(R) 

50 GOTO 30 

60 DATA 0, 1*2, 3, 3. 14159, 3. 1416,4,5* 6, 1, 8, 100 

99 END 

READY 



RUN 
















R 


SINCR) 




COS(R) 


TAN<R> 




ATN(R) 






















1 


.841471 






.5403023 


1.557408 




.7853982 


2 


.9092974 




-« 


.4161468 


-2. 18504 




1. 107149 


3 


.14112 




-, 


.9899925 


-.1425466 




1.249046 


3. 14159 


2.668363E- 


6 


- 




-2.668363E- 


6 


1.2 62627 


3.1416 


-7.349700E- 


6 


- 




7.349700E- 


6 


1.2 62628 


4 


-.7568025 




-, 


.6536436 


1.157821 




1.325818 


5 


-.9589243 






.2836622 


-3.380515 




1.373401 


6 


-.2794155 






.9601703 


-.2910062 




1.405648 


7 


.6569866 






.7539022 


.8714481 




1.428899 


8 


.9893582 




- 


. 1455 


-6.79S713 




1.446441 


100 


-.5063656 






.8623185 


-.5872141 




1.560797 



DATA ERROR AT LINE 30 



Exercise 85. The above program requires that the value of R be 
given in radians. Modify the program so that the data is given in 
degrees. Include the following DATA statements. 



0,30,45,90,120,135,150,180 

210,225,240,270,300,315,330,360 

1000,2000,3000,3630,3645,3660 



DATA 

DATA 210,225,2 
DATA 1000,2000 
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Do It Yourself Functions ' 

When you have mastered BASIC and are writing your own pro- 
grams, you may wish to define functions other than those provided 
by BASIC. The DEF statement allows you to do this. 

To show you how the DEF statement works, we defined as a 
function the formula for converting Fahrenheit to Centigrade. We 
provided the computer with Centigrade values. We included a 
check to ensure that all values were above —273. We used the 
formula: 

F =-|-C + 32 

to convert Centigrade to Fahrenheit. And we request that the 
converted values be printed. 

Here is the program we used: 

READY 

10 DEF FNFCT)=C9/5)*T+32 

20 GO SUB 100 

30 PRINT FNF(X) 

40 GOTO 10 

50 STOP 
100 REMARK***READ AND TEST DATA 
110 READ X 

120 IF X>-273 THEN 140 
130 PRINT "INVALID DATA" 
140 RETURN 

200 DATA -40,0,100,23,9,37,-274 
999 END 

RUN 
-40 

32 

212 

73.4 

48.2 

98.6 
INVALID DATA 
-461.2 

DATA ERROR AT LINE 110 

The DEF statement in line 10 defines a function FNF which 
may then be used elsewhere in the program. Defined functions must 
have three letter names, starting with FN. The format of the DEF 
statement is as follows: 

(line number)DEF FNF(T) = (9/5) *T + 32 

argument formula argument 
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F may be any letter. The argument (T) has no significance but 
must be the same on both sides of the equal sign. The formula may 
be expressed in terms of numbers, several variables, other functions 
(INT, SQR, etc.), or mathematical expressions. 

Once the function has been defined, it is called in the same 
manner as other BASIC functions, e.g. FNF(X). Only one DEF 
statement is permitted in an EduSystem 10 program. The larger 
EduSystems allow multiple DEF statements in a program. 

Exercise 86. Define a function to find the area of a circle. Re- 
member that the formula is : 

A = 3.14xR 2 or as we say in BASIC A = 3.14*Rf2 

Use the function to find the areas of circles with radii of 6, 8, 
and 12. Use the computer to check your answers. 

PAST AND FUTURE BASIC 

Look back . . . you have learned a lot about the language called 
BASIC. 

• Direct Statements 9 SCR, RUN, LIST 

• Statements: PRINT, END, LET, INPUT, GO TO, READ, 

DATA, FOR, NEXT, IF, DIM, REMARK, 
GOSUB, RESTORE 

• Operations: +,—,*,/, t 

• Relations: =, <, >, <=, >=, <> 

• Functions: INT, SQR, TAB, RND 

• Also: Numerals, numerical expressions, variables, variable 

expressions, traces, messages, loops, flowcharts, sub- 
scripted variables 

Briefly mentioned: 

• The SIN, COS, TAN, and ATN functions 

• The LOG, EXP, ABS, and SGN functions 



9 A direct statement does not have a line number. It is executed immedi- 
ately (when you press RETURN) instead of being stored in the computer's 
memory for later execution. Some people use the term "immediate state- 
ment" instead of "direct statement." 
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Now you can "say" simple things in BASIC, but you are not 
yet fluent. As with any language, if you want to become fluent, you 
must use the language and also learn more about it. 

Look ahead ... more to learn about BASIC . . . things that 
we haven't covered at all or have only mentioned briefly. 

• Statements DEF, GOSUB, ON .. . . GOTO ..., RE- 

STORE, RETURN, STOP 

• Logical Operations: AND, OR, NOT 

• Functions: ABS, ATN, COS, EXP, LOG, SIN, TAN 



The above are included in many versions of BASIC. But there 
are also some hopped-up versions of BASIC that have additional 
features. Look for: 

• Strings and String Variables 

• String Functions 

• Files 

Where do you look? For each EduSystem there is a chapter in 
this handbook that describes the exact characteristics of the lan- 
guage for that EduSystem. The following chart summarizes the 
BASIC statements, edit and control commands, and functions and 
indicates the EduSystems on which they are available; 
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Table 1-3. BASIC Functions and Arithmetic Operations 



Functions 



Description 



EduSystems 
5 10 15 20 25 30 40 50 



SQR(x) 


Square root of x(\/x) 


SIN(x) 


Sine of x (x in radians) 


COS(x) 


Cosine of x (x in radians) 


TAN(x) 


Tangent of x (x in 
radians) 


ATN(x) 


Arctangent of x (x in 
radians; result in radians) 


EXP(x) 


e x (e=2.712818) 


LOG(x) 


Natural log of x (log^x) 


ABS(x) 


Absolute value of x (|x|) 


INT(x) 


Greatest integer of x 


SGN(x) 


Sign of x (+1 if positive, 
— 1 if negative, if zero) 


RND(x) 


Random number be- 
tween and 1 


FIX(x) 


Truncates decimal por- 
tion of X 


TAB(x) 


Controls printing head 
position on Teletype 


CHR$(x) 


Converts character code 



to character. Used only 
with PRINT statement. 



xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 



X X 



X 



xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 

xxxxxxxx 



X 



X 
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Table 1-3 (Cont.) BASIC Functions and Arithmetic Operations 

EduSystems 
Functions Description 5 10 15 20 25 30 40 50 

MID(A$,M,N) Returns N characters, x 

starting at the Mth char- 
acter of A$. 

LEN(A$) Returns the number of x 

characters in A$. 

CAT(A$,B$) Returns a string of A$ x 

concatenated with B$ 
(maximum of 6 char- 
acters returned). 

Arithmetic Operations 

SYMBOLS 

t exponentiation 
* multiplication 
/ division 
+ addition 
— subtraction 

ORDER OF EXECUTION 

1 . Parenthetical expressions 

2. Exponentiation 

3. Multiplication and Division 

4. Addition and Subtraction 
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edusystems 



INTRODUCTION 

EduSystem 5 is a BASIC-speaking supercalculator — calculator 
because it can be used like a calculator to obtain fast, accurate 
results, super because it is a computer that iises BASIC and does 
much more than calculate. EduSystem 5 has the ability to operate 
in two modes: immediate and programmable. Immediate mode 
allows the user to perform arithmetic calculations and obtain im- 
mediate results without writing programs. The problem and the 
solution are printed at the Teletype to provide a hard copy for 
future reference. In programmable mode, one uses BASIC to 
write programs and type them on the Teletype keyboard. Programs 
are stored in computer memory and can be printed via the teletype 
and, if desired, punched on paper tape to be used again in the 
future. 

EduSystem 5 BASIC contains all the elements needed to write 
and execute meaningful programs. In addition, it provides several 
special features. 

• Several commands may be typed on a single line. Programs 
using this feature require less storage in the computer, thus 
enabling users to write longer programs. 

• A colon (:) may be used in place of the PRINT command 
to save time and storage space. 

• Typing errors are easily corrected with the use of the ALT 
MODE (or ESCAPE), <- back arrow, or RUBOUT key. 

• INPUT statement responses may be either mathematical 
expressions or numeric values. 

All these features, and more, are yours with EduSystem 5. And 
it expands. If your needs grow beyond EduSystem 5, you can 
expand it, with a few simple additions, to an intermediate-scale 
EduSystem 15. 
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System Components 

EduSystem 5 is composed of a table-top computer (PDP-8/F) 
with 4096 words of core memory and a Teletype with paper tape 
reader and punch. An optional off-line Teletype with paper tape 
reader and punch allows users to prepare paper tapes of their 
programs before coming to the EduSystem 5 and increases the 
number of persons who may use it each day. Each EduSystem 5 
includes the BASIC language processor, a user's guide, and a 
self-teaching workbook for learning the BASIC language. 

System Expansion 

EduSystem 5 is easily expanded to EduSystem 15 by adding a 
DECtape magnetic tape drive (TD8-E), memory extension control, 
256 word read-only memory, and an EduSystem 15 software kit. 
(See Chapter 4 for a full description of the capabilities of Edu- 
System 15.) 

BASIC LANGUAGE CAPABILITIES 

EduSystem 5 BASIC includes the language elements shown in 
Table 2-1. These elements are used as explained in Chapter 1. 
Differences in usage for EduSystem 5 are discussed below. 

Line Numbers 

In EduSystem 5 BASIC there is no upper limit on the size of 
the line number for any statement. 

Single-Character PRINT Command 

EduSystem 5 permits the use of a colon (:) in place of the 
PRINT command. This abbreviation can be used in place 
of PRINT in either programmable or immediate mode. The state- 
ment format is the same as that of the PRINT command, for 
example: 



10 s5+l0 is the same as 10 PRINT 5+10 



Multiple Statements per Line 

EduSystem 5 allows more than one command to be typed on a 
single line. Commands after the first begin with a back slash 
character (\), typed as SHIFT/L on the keyboard. A program is 
often more understandable when statements, such as a series of 
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LET's 1 , are grouped into a single line. For example, the program: 



10 LET A=l 

10 A=1\B=4\C=6 20 LET B=4 

20 :(A+B)*c is the same as 30 LET C=6 

99 END 40 PRINT <A+B)*C 

99 END 



and will produce the same result when the RUN command is 
typed: 



RUN 
30 



This capability is helpful when the program to be written is too 
big for EduSystem 5. Commands take less storage in the computer 
when they are grouped as a single statement. 

Immediate Mode 

EduSystem 5 allows certain BASIC statements to be used in 
immediate mode, that is, to be issued and executed immediately 
without being included in a formal program. Commands commonly 
used with immediate mode are PRINT (or:), LET, 1 FOR, and 
NEXT. Immediate mode is a quick way to calculate expressions 
and equations. For example, the statement 



:SIN(1),C0SC1),TAN<1) 

followed by the RETURN key, causes the sine, cosine, and tangent 
of 1 radian to be printed immediately, as follows: 

i 

0.841471 0.540302 1.55741 



Typing multiple commands per line is especially useful in the 
immediate mode. A table of square roots of the .first 10 integers 



iRemember that the word LET is optional in the LET statement. 
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could, for example, be generated by typing the following single 
line and pressing the RETURN key: 

FOR 1=1 TO 10\: SQRCI),\NEXT I 

1 1.41421 1,73205 2 2.23607 

2.44946 2.64575 2.82843 3 3.16228 

Although they are rarely used, other BASIC commands are 
available in immediate mode. The immediate GOTO command 
may be used to start a program at a point other than the beginning. 
This is accomplished by loading the program into the computer 
memory and typing, for example: 

GO TO 200 

After the RETURN key is pressed, the program execution will 
begin automatically at line number 200. In this case, the RUN 
command need not be typed. 

INPUT Statement 

EduSystem 5 allows the student to respond to the INPUT query 
(?) with either a mathematical expression or a numeric value. An 
expression entered as input may contain one or more arithmetic 
operations and may use any available BASIC function. For ex- 
ample, the BASIC statement: 

10 INPUT x 

could be answered in any of the following ways: 

?10t5+6 7L0GC186) 7SQRC4T2-2) 

As explained in Chapter 1, the INPUT statement may have 
multiple inputs. These inputs may be either mathematical expres- 
sions or numeric values. For example, the BASIC statement 

10 INPUT A,B,C 

could be answered as follows: 

7512, INT<876.33),7+6T25 
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NOTE 

Remember that you use CTRL/C to stop 
a program that is running. 

PROGRAM EDITING 

There are two times when a program may require editing pro- 
cedures. The first occurs while a line is being typed but before 
the RETURN key has been pressed. The second occurs when a 
line has been completely typed and the RETURN key has been 
pressed. Each situation has its own editing procedures. 

Procedure 1: Before the RETURN key is pressed. 

Three keys may be used to correct typing errors: ALT MODE 
(or ESCAPE), <- (back arrow), or RUBOUT. 

ALT MODE (or ESCAPE) is used to delete an entire line. 
When this key is used, BASIC prints $DELETED, erases 
that line from the program, and returns the carriage so that 
line may be retyped. 

<r- (back arrow), SHIFT/0 on the keyboard, or RUBOUT is 
used to delete a character from a line. BASIC prints a back 
arrow, deleting the last character from that line. More than 
one back arrow deletes more than one character, in reverse 
order. 

Procedure 2: After the RETURN key is pressed. 

Once a line of the program has been transmitted to computer 
memory via the RETURN key, several methods of correction may 
be used. Lines may be inserted, deleted, or changed. 

INSERTION: To add a line to a program, assign a line 
number that falls between two existing lines, type the line 
number and text, and press RETURN. 

DELETION: To erase a line from computer memory, type 
the line number only and press the RETURN key. 

CHANGE: To change an individual line, simply retype it. 
The old instruction is replaced by the new one. 

ERROR MESSAGES 

EduSystem 5 checks all commands before executing them. If it 
cannot execute a command, it informs the user by printing one 
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of the following messages arid the line number in which the error 
was found, 



Message 
SYNTAX ERROR 



FUNCTION ERROR 



TOO-BIG ERROR 



SUBSCRIPT ERROR 

LINENO ERROR 

FOR ERROR 
NEXT ERROR 

GOSUB ERROR 
RETURN ERROR 

DATA ERROR 
ARGUMENT ERROR 



Explanation 



Command does not have correct syntax. 
Common examples of syntax errors are 
misspelled commands, unmatched paren- 
theses, and other typographical errors. 

The function used was deleted at system 
load time and thus is not available. A 
DEF statement will produce this message 
if the DEF capability was deleted. 

Program and variables exceed computer 
capacity. Reducing one or the other may 
help. If the program has undergone ex- 
tensive revision, try punching it out, typ- 
ing SCR, and reloading. 

The subscript used is outside the DIM 
statement limits. 

A branch statement (GOTO, GOSUB, 
or IF) references a nonexistent line. 

FOR loops are too deeply nested. 

FOR and NEXT statements are im- 
properly paired. 

Subroutines are too deeply nested. 

GOSUB and RETURN statements are 
improperly paired. 

No more items are in the data list. 

A function has been given an illegal argu- 
ment, e.g., SQR(-l). 
To correct the error indicated by the message, the appropriate 

line in the program must be corrected in the manner described 

under Program Editing, Procedure 2. 

OPERATING INSTRUCTIONS 

Initial Installation 

When EduSystem 5 is first installed, it must be loaded with a 
special software program, the BASIC language processor. Once 
this software is loaded, it need not be reloaded. Perform the 
following steps to load BASIC. 

1. Plug the EduSystem 5 computer into a standard 3-prong 
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electrical outlet. Plug the Teletype into a second standard 
outlet. Turn the key lock on the front of the computer to the 
power position and turn the Teletype to line. Set all switches 
oh the SWITCH REGISTER (to the left of the ADDR 
LOAD switch) to the "down" position and press the EXTD 
ADDR LOAD switch. 

Perform the following set of switch manipulations. In each 
step, there are 12 figures which correspond to the 12 switches 
labeled SWITCH REGISTER (SR) on the front of the com- 
puter. The 4 symbol indicates that the corresponding switch 
should be set to its "up" position. The $ symbol means that 
the corresponding switch should be set to its "down" posi- 
tion. The octal instructions which correspond to this diagram 
appear on the right. 2 OCTAL 



SetSRto: 


444 444 4$4 44$ 


then press ADDR LOAD 7756 


Set SR to: 


**9 999 


9** 9*9 


then lift DEP 


6032 


SetSRto: 
Set SR to: 


44o ooo • o44 oo4 

4$4 $44 4$4 444 


then lift DEP 
then lift DEP 


6031 
5357 


Set SR to: 


sP vtv 


$44 44$ 


then lift DEP 


6036 


Set SR to: 


444 $$4 


■ \f \P >f Np 


then lift DEP 


7106 


Set SR to: 
SetSRto: 


*** $$$ 
444 4$4 


\P Np Np \P 

99* 999 


then lift DEP 
then lift DEP 


7006 
7510 


Set SR to: 


*9* 9** 


4$4 444 


then lift DEP 


5357 


SetSRto: 


*** 999 


\f \p 4: tj> 


then lift DEP 


7006 


SetSRto: 
SetSRto: 


\P nP ^p sP 

4$4 $44 


9** 99* 
44$ 444 


then lift DEP 
then lift DEP 


6031 
5367 


Set SR to: 


V 4- \P Np 


9** *99 


then lift DEP 


6034 


Set SR to: 


444 4$$ 


V* Np NK Nk Sp 


then lift DEP 


7420 


Set SR to: 


$44 444 


444 44o 


then lift DEP 


3776 


SetSRto: 


$44 $44 444 44$ 


then lift DEP 


3376 


SetSRto: 


4$4 $44 4$4 44$ 


then lift DEP 
and again lift DEP 


5356 



2The octal instructions are provided for those familiar with the octal, or 
base 8, number system. An explanation of this system is included in 
Introduction to Programming 1972. 
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3. Place the tape labeled EDUSYSTEM-5 in the Teletype paper 
tape reader. Position the tape at the single row of holes 
punched at the beginning of the tape. 

4. Set the SR to 4& •& 4^4 44^; (7756); then press 
ADDR LOAD. Press the CLEAR switch, then the CONT 
switch. Push the paper tape reader switch to the START 
position. The tape should read in. If it stops before the end 
of tape, an error has occurred. Repeat steps 2, 3, and 4. 

5. When the tape has read in properly, BASIC prints the 
following message: 

SELECT THE SMALLEST SET OF FUNCTIONS NEEDED FROM THE 

FOLLOWING CHOICES 

ATN ! !Xl ! ! ! ! 

LOG+EXP I !X!X! ! I ! 

SIN+COS+TAN ! !X!X!X! ! ! 

DEF(FN) ! !X!X!X!X! ! 

SQR ! !X!XIX!X!X! 

RND ! !X!X!XIX!XIX 

OPTION A B C D E F G 

TYPE OPTION LETTER? 

At this time, it is possible to delete any functions which will 
not be used. In response to the question "TYPE OPTION 
LETTER?", type the letter of the option that represents the 
functions needed. 

Deleting functions increases the size of the BASIC program 
which may be accommodated. If all functions are deleted 
(option A), the maximum program size is approximately 60 
lines; If all functions are retained (option B), the maximum 
program size is approximately 30 lines. 

6. After the functions have been selected, BASIC prints the 
following question: 

DO SUBSCRIPTS START AT OR 1? 

Indicate whether subscripts will begin at or 1 . Many BASIC 
programs do not use the zero element of an array. If this is 
the case, setting subscripts to start at 1 allows larger pro- 
grams to be run. 

7. EduSystem 5 is now ready for use. Turn the key lock to 
PANEL LOCK and remove the key to prevent the system 
from being accidentally disturbed. 
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Turning Off the System 

Perform the following steps to turn off the EduSystem 5: 

1. Type CTRL/C to stop any program that is running. 

2. Turn the key lock to OFF. 

Restarting the System 

Perform the following steps to restart the EduSystem 5: 

1. Turn the key lock to POWER. 

2. Press the CLEAR switch, then the CONT switch. 

3. EduSystem 5 is now ready for use. Turn the key lock to 
PANEL LOCK and remove the key to prevent the sys- 
tem from being accidentally disturbed. 

Reloading the Functions 

If a need arises for. functions which were deleted at system load 
time, the functions can be reloaded without reloading the entire 
system. Perform the following steps to reload the functions: 

1. Type CTRL/C to stop any program that is running. 

2. Turn the key lock to the. POWER position; press the 
HALT switch, then raise it again. 

3. Follow the procedure for Initial Installation, starting 
at step 3. Use the shorter tape labeled EDUSYSTEM-5 
FUNCTIONS ONLY instead of the EDUSYSTEM-5 
tape. 

Saving Programs on Paper Tape 

Once a program has been typed in correctly, it may be saved on 
paper tape so that it may be reloaded quickly. To save the pro- 
gram, follow this sequence of steps: 

1 . Turn the Teletype control knob to LINE. 
. 2. Type LIST but do not press the RETURN key. 

3. Turn the Teletype paper tape punch ON. 

4. Turn the Teletype control knob to LOCAL. 

5. Press the HERE IS key to produce some leader tape. 

6. Turn the Teletype control knob to LINE, 

7. Press RETURN. 

8. When punching is complete, turn the control knob to 
LOCAL. 

9. Press the HERE IS key to produce some trailer tape. 
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10. Turn the Teletype punch OFF. 

1 1 . Turn the Teletype control knob to LINE. 

Reloading Programs from Paper Tape 

Programs punched out on paper tape may be reloaded using the 
Teletype paper tape reader. To reload programs, follow this 
sequence of steps: 

1 . Turn the Teletype control knob to LINE. 

2. Type SCR, then press the RETURN key. 

3. Insert the program tape in the reader. 

4. Turn the Teletype reader to START. 

5. When the tape has read in, turn the Teletype reader to 
FREE. 
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Table 2-1. EduSystem 5 BASIC Statement Summary 



Statement 



Description 



) 



LET 

PRINT (or: 

READ 

DATA 

GOTO 

IF GOTCh 

IF THEN/ 

FOR TO STEP 

NEXT 

GOSUB 

RETURN 

INPUT 

REM (or ') 

RESTORE 

DEF 

STOP 
END 
DIM 
Functions' 

ABS(X) 

ATN(X) 

COS(X) 

EXP(X) 

INT(X) 

LOG(X) 

RND(X) 

SGN(X) 

SIN(X) 
SQR(X) 

TAN(X) 

Editing/ Control 

LIST 

LISTn 

RUN 

SCR 

CTRL/C 



Assign a value to a variable. LET js optional. 
Print out the indicated information. 
Assign values from data list to variables. 
Provide data for a program. 
Change order of program execution. 
Conditionally change order of program 
execution. 

Set up a program loop. 
End of program loop. 
Go to a subroutine. 
Return from a subroutine. 
Get values of expressions from the Teletype. 
Insert a program comment. 
Restore the data list. 

Define a function. (Availability must be re- 
quested when system is loaded.) 
Stop program execution. 
End a program. 
Define subscripted variables. 

Absolute value of x 
Arctangent of x(result in radians) 
Cosine of x(x in radians) 
e x (e=2.7 18282) 
Greatest integer of x 
Natural logarithm of x 
Random number 

Sign of x( + l if positive, — 1 if negative, 
if zero) 

Sine of x(x in radians) 
Square root of x 
Tangent of x(x in radians) 
Commands 

List all stored program statements. 

List program statements beginning at line n. 

Run the currently stored program. 

Delete the currently stored program. 

Stop execution of a program or printing of a 

listing. CTRL/C is typed by pressing C while 

holding down the CTRL key. 



3 The ABS, INT, and SGN functions are always available. Other functions 
(and the DEF statement) must be selected when the system is loaded. (See 
Initial Installation, step 5.) 
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INTRODUCTION 

EduSystem 10 is a mini-EduSystem with maxi-potential. It 
speaks a very fluent BASIC with all the standard features and a 
few special ones. It provides printed output and paper tape read- 
ing and punching. EduSystem 10 even tells you when you make 
a mistake and provides simple corrective measures. So why, with 
all EduSystem 10 has to offer, do we call it a starter system? 
Because EduSystem 10 can expand as your needs expand. It has the 
built-in potential to grow into larger EduSystems — EduSystem 20 
or 30 at first, and as big as you want to go thereafter. 

Even though it isn't as powerful as the larger EduSystems, 
EduSystem 10 has some features that even some of the big ones 
can't duplicate. Two operating modes are available: immediate and 
programmable. Immediate mode lets you perform arithmetic cal- 
culations without writing programs. Programmable mode lets you 
write programs in BASIC, store them in the computer, and punch 
them on paper tape. Both modes provide the problem and the 
solution on printed output. Other features include: 

• Multiple statements per line to save computer storage space 
and let you write longer programs. 

• An abbreviated PRINT command, colon ( : ) . 

• Special keys (ALT MODE, RUBOUT, and <-) for cor- 
recting typing errors. 

• Mathematical expressions or numeric values as responses to 
the INPUT statement. 

System Components 

EduSystem 10 is composed of a table-top computer (PDP-8/E), 
4096 words of core memory, automatic loader (hardware boot- 
strap), and a Teletype with paper tape reader and punch. Each 
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EduSystem 10 includes a BASIC language processor and a library 
of sample programs, textbooks, and curriculum guides. Optional 
components for EduSystem 10 include one or more Teletypes for 
off-line preparation of paper tape and a high-speed paper tape 
reader and punch which facilitates the use of other system capabili- 
ties such as FOCAL, FORTRAN, and assembly language. 

System Expansion 

EduSystem 10 may be easily expanded to either EduSystem 20 
or EduSystem 30. To expand to EduSystem 20, add 4096 words 
(or more) of core memory, an EduSystem 20 software kit, and 
as many as 7 additional Teletypes with interfaces. To expand to 
EduSystem 30, add one DECdisk or DECtape, an optical mark 
card reader, and an EduSystem 30 software kit. (Chapters 5 and 
7 fully describe the capabilities of EduSystem 20 and EduSys- 
tem 30, respectively.) 

BASIC LANGUAGE CAPABILITIES 

EduSystem 10 BASIC includes the language elements shown in 
Table 3-1. Normally, these elements are used in programs as ex- 
plained in Chapter 1. BASIC usage differences with EduSystem 
10 are explained below. 

Line Numbers 

EduSystem 10 BASIC does not place an upper limit on the size 
of the line number for any statement. 

Single-Character PRINT Command 

A colon (:) may be used in place of the PRINT command. 
This abbreviation may be used in either programmable or imme- 
diate mode. The statement format is the same as that of the PRINT 
command, for example: 



10 sSQRCA+B) is the same as 10 PRINT SQRCA+B) 

Multiple Statements per Line 

EduSystem 10 allows more than one command to be typed on a 
single line. Commands after the first begin with a back slash 
character (\) typed as SHIFT/L on the keyboard. A program is 
often more understandable when statements, such as a series of 
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LET's 1 , are grouped into a single line. For example, the program 





100 


LET X=2 


100 


X=2\Y=8\Z=12 . 110 


LET Y=8 


110 


:Y/X*Z is the same as 120 


LET Z=12 


999 


END 130 


PRINT Y/X*Z 




999 


END . 



and will produce the same result when the RUN command is 
typed: 

RUN 
48 

The multiple-statement capability is helpful when the program 
to be written is too big for EduSystem 10. Commands require less 
storage in the computer when they are grouped as a single state- 
ment. 

Immediate Mode 

EduSystem 10 allows certain BASIC statements to be used in 
immediate mode, that is, to be issued and executed immediately 
without being included in a formal program. Commands commonly 
used with immediate mode are PRINT (or:), LET, FOR, and 
NEXT. Immediate mode is a quick way to calculate expressions 
and equations. For example, the statement: 

s INTC76.87 +2.9) 

followed by the RETURN key, causes the value of the nearest 
integer to be printed immediately, as follows: 

79 

Typing multiple commands per line is especially useful in the 
immediate mode. A table of random numbers could, for example, 
be generated by typing the following single line and pressing the 
RETURN key: 



iRemember that the word LET is optional in the LET statement. 
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FOR 1=1 TO 20\PRINT RND(0),\NEXT I 



0.217873 
0.767746 
0.793194 
0.804367 



0.696209 
0.829399 
0.644913 
0.992458 



0.29751 
0.181667 
0.927201 
0.68785 



0.963794 
0.159454 
0.894656 
0.619773 



0.463246 
6.52568E-2 
0.974861 
0.731568 



Although they are rarely used, other BASIC commands are 
available in immediate mode. The immediate GOTO command 
may be used to start a program at a point other than the beginning. 
This is accomplished by loading the program into the" computer 
memory and typing, for example : 

GO TO 35 

After the RETURN key is pressed, the program execution will 
begin automatically at line number 35. In this case, the RUN 
command need not be typed. 

INPUT Statement 

The INPUT statement described in Chapter 1 allows a number 
to be entered from the Teletype as the value for a variable. Edu- 
System 10 allows the student to respond to the INPUT query (?) 
with a value or a mathematical expression. An expression may con- 
tain one or more arithmetic operations and may use any available 
BASIC function. For example, the BASIC statement: 

10 INPUT x 

could be answered in either of the following ways : 



?2*8.4/3 



7SQRC100) + 20T2 



This capability could be used to enable one program to solve more 
than one problem. 

As explained in Chapter 1, the INPUT statement may have 
multiple inputs. These inputs may be either mathematical expres- 
sions or numeric values. For example, the BASIC statement: 

100 INPUT x,Y,Z 
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could be answered as follows: 



?23, INTCZ84.978) ,25+86f9 



NOTE 

When using the INPUT statement in pro- 
grams, remember that CTRL/C is used to 
stop a program that is running. 

Table 3-1. EduSystem 10 BASIC Statement Summary 



Statement 


Description 


LET 


Assign a value to a variable. LET is 




optional. 


PRINT(or :) 


Print out the indicated information. 


READ 


Assign values from data list to vari- 




ables. 


DATA 


Provide data for a program. 


GOTO 


Change order of program execution. 


IF GOTO\ 

if Then J 


Conditionally change order of pro- 


gram execution. 


FOR TO STEP 


Set up a program loop. 


NEXT 


End of program loop. 


GOSUB 


Go to a subroutine. 


RETURN 


Return from a subroutine. 


INPUT 


Get values or expressions from the 




Teletype. 


REM (or ') 


Insert a program comment. 


RESTORE 


Restore the data list. 


DEF 


Define a function. (Availability must 




be requested when system is loaded.) 


STOP 


Stop program execution. 


END 


End a program. 


DIM 


Define subscripted variables. 


Functions 2 




ABS(X) 


Absolute value of x 


ATN(X) 


Arctangent of x (result in radians) 


COS(X) 


Cosine of x (x in radians) 


EXP(X) 


e x (e = 2.718282) 


INT(X) 


Greatest integer of x 



2 The ABS, INT, and SGN functions are always available. Other functions 
(and the DEF statement) must be selected when the system is loaded. (See 
Initial Installation, step 5.) 
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Table 3-1. (Cont.) EduSystem 10 BASIC Statement Summary 



Statement 


Description 


Functions (Cont.) 




LOG(X) 


Natural logarithm of x 


RND(X) 


Random number 


SGN(X) 


Sign of x (+1 if positive, — 1 if neg- 




ative, if zero) 


SIN(X) 


Sine of x (x in radians) 


- SQR(X) 


Square root of x 


TAN(X) 


Tangent of x (x in radians) 


Editing/ Control Commands 




LIST 


List all stored program statements. 


LISTn 


List program statements beginning at 




line n. 


RUN 


Run the currently stored program. 


SCR 


Delete the currently stored program. 


CTRL/C 


Stop execution of a program or print- 




ing of a listing. CTRL/C is typed by 




pressing C while holding down the 




CTRL key. 



PROGRAM EDITING 

There are two times when a program may require editing pro- 
cedures. The first occurs while a line is being typed but before 
the RETURN key has been pressed. The second occurs when a 
line has been completely typed and the RETURN key has been 
pressed. Each situation has its own editing procedures. 

Procedure 1: Before the RETURN key is pressed. 

Three keys may be used to correct typing errors: ALT MODE 
(or ESCAPE), <-(back arrow), or RUBOUT. 

ALT MODE (or ESCAPE) is used to delete an entire line. 
When this key is used, BASIC prints $DELETED, erases 
that line from the program, and returns the carriage so that 
the line may be retyped. 

<Kback arrow), SHIFT/0 on the keyboard, or RUBOUT is 
used to delete a character from a line. BASIC prints the 
back arrow, deleting the last character from that line. More 
than one back arrow deletes more than one character, in re- 
verse order. 
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Procedure 2: After the RETURN key is pressed. 

Once a line of the program has been transmitted to computer 
memory via the RETURN key, several methods of correction may 
be used. Lines may be inserted, deleted, or changed. \ 

INSERTION: To add a line to a program, assign a line num- 
ber that falls between two existing lines, type the line number 
and text, and press RETURN. 

DELETION: To erase a line from computer memory, type 
the line number only and press the RETURN key. 

CHANGE: To change an individual line, simply retype it. 
The old instruction is replaced by the new one. 

ERROR MESSAGES 

EduSystem 10 checks all commands before executing them: if it 
cannot execute a command, it informs the user by printing one of 
the following messages and the line number in which the error was 
found. 



Message 
SYNTAX ERROR 



FUNCTION ERROR 



TOO-BIG ERROR 



SUBSCRIPT ERROR 



Explanation 

Command does not have correct syn- 
tax. Common examples of syntax 
errors are misspelled commands, un- 
matched parentheses, and other typo- 
graphical errors. 

The function used was deleted at 
system load time and thus is not 
available. A DEF statement wilt pro- 
duce this message if the DEF capa- 
bility was deleted. 

Program and variables exceed com- 
puter capacity. Reducing one or the 
other may help. If the program has 
undergone extensive revision, try 
punching it out, typing SCR, and re- 
loading. 

The subscript used is outside the DIM 
statement limits, 
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Message Explanation 

L1NENO ERROR A branch statement (GOTO, GOSUB, 

or IF) references a nonexistent line. 

FOR ERROR FOR loops are too deeply nested. 

NEXT ERROR FOR and NEXT statements are im- 

properly paired. 

GOSUB ERROR Subroutines are too deeply nested. 

RETURN ERROR GOSUB and RETURN statements are 

improperly paired, 

DATA ERROR No more items are in the data list. 

ARGUMENT ERROR A function has been given an illegal 

argument, e.g., SQR( — 1 ). 

To correct the error indicated by the message, the appropriate 
line in the program must be corrected in the manner described 
under Program Editing, Procedure 2. 

OPERATING INSTRUCTIONS 
Initial Installation 

When EduSystem 10 is first installed, it must be loaded with a 
special software program, the BASIC language processor. Once 
this software is loaded, it need not be reloaded. Perform the fol- 
lowing steps to load BASIC. 

1. Plug the EduSystem 10 computer into a standard 3-prong 
electrical outlet. Plug the Teletype into a second standard 
outlet. Turn the key lock on the front of the computer to 
POWER and the Teletype swith to LINE. Set all switches 
on the SWITCH REGISTER (to the left of the ADDR 
LOAD switch) to the "down" position and press the EXTD 
ADDR LOAD switch. 

2. If the computer does not include a hardware bootstrap 
loader, perform the following set of switch manipulations; 3 
otherwise, proceed to step 3. 

In each step, there are 12 figures which correspond to the 
12 switches labeled SWITCH REGISTER (SR) on the 
front of the computer. The £ symbol indicates that the 



3 If the EduSystem 10 is equipped with a high-speed paper tape reader and 
punch, see instructions for the RIM (Read-in-mode) loader in Appendix A. 
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corresponding switch should' be set to its "up" position. 
The £ symbol means that the corresponding switch should 
be set to its "down" position. The octal instructions which 
correspond to this diagram appear on the right. 4 

OCTAL 



Set SR to 


444 


444 4$4 44$ 


Set SR to 


% 


V V V 


944 


?*9 


Set SR to 


44 9 


^ \P \P 


944 


99 4 


Set SR to 


M 


^44 4g4 444 


SetSRto: 


44 9 


Np '*''+• 


9*4 


44$ 


SetSRto 


444 


99* 


\P V >P 


44$ 


Set SR to 


444 


"$■ 4-- ^P 


999 


44$ 


SetSRto 


444 4o4 


•99* 


4, 4, 4- 


SetSRto 


4 $ 4 


?44 


494 


444 


Set SR to 


444 


Np "P "P 


v** 


44$ 


SetSRto 


44$ 


>p \p vp 


944 


$94 


Set SR to 


4$4 


$44 


44$ 


444 


Set SR to 


44$ 


y y y 


944*99 


SetSRto 


444 4$$ 


9 4 $ 


"P V \p 


Set SR to 


9*4 


444 


444 44o 


Set SR to 


9*4 


$44 444 


44$ 


Set SR to 


4$4 


?44 


4$4 


44$ 



then press ADDRLO> 
then lift DEP 


\D 7756 
6032 


then lift DEP 


6031 


then lift DEP 


5357 


then lift DEP 


6036 


then lift DEP 


7106 


then lift DEP 


7006 


then lift DEP 


7510 


then lift DEP 


5357 


then lift DEP 


7006 


then lift DEP 


6031 


then lift DEP 


5367 


then lift DEP 


6034 


then lift DEP 


7420 


then lift DEP 


3776 


then lift DEP 


3376 


then lift DEP 




and again lift DEP 


5356 



Place the tape labeled EDUSYSTEM-10 in the Teletype 
paper tape reader. Position the tape at the single row of 
holes punched at the beginning of the tape. 
If the computer does not include a hardware bootstrap 
loader, perform the operations in step 4b. If it has a boot- 
strap loader, perform the steps in 4a. 

a. Set the SR to 4$4 ^44 4<j4 44^(5356); then lower 

and lift the switch labeled SW. Proceed to step 6. 

b. Set the SR to 444 444 4(^4 449(7756); then press 
ADDRLOAD. 

Press the CLEAR switch, then the CONT switch. Push the 
paper tape reader switch to the START position. The tape 



4 Octal instructions are provided for those familiar with the octal or base 8 
number system. An explanation of this system is included in Introduction 
to Programming 1972. 
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should read in. If it stops before the end of tape, an error 
has occurred. Repeat steps 2, 3, and 4. 
6. When the tape has read in properly, BASIC prints the fol- 
lowing message: 

SELECT THE SMALLEST SET OF FUNCTIONS NEEDED FROM THE 
FOLLOWING CHOICES 

IX! ! ! ! I 



ATN 

LOG+EXP 

SIfH-COS+TAN 

DEFCFN) 

SQR 

RND 



1XIX! ! I ! 
1X1X1X1 ! ! 
IXIXIXIXI ! 
1XIXIX1XIX! 

ixixixixixix 



OPTION A B C D E F G 

TYPE OPTION LETTER? 

At this time, it is possible to delete any functions which will 
not be used. In response to the question "TYPE OPTION 
LETTER?", type the letter of the option that represents the 
functions needed. 

Deleting functions increases the size of the BASIC program 
which may be accommodated. If all functions are deleted 
(option A), the maximum program size is approximately 60 
lines. If all functions are retained (option B), the maximum 
program size is approximately 30 lines. 

7. After the functions have been selected, BASIC prints the 
following question: 

DO SUBSCRIPTS START AT OR 1? 

Indicate whether subscripts will begin at or 1. Many 
BASIC programs do not use the zero element of an array. 
If this is the case, setting subscripts to start at 1 allows larger 
programs to be run. 

8. EduSystem 10 is now ready for use. Turn the key lock to 
PANEL LOCK and remove the key to prevent the system 
from being accidentally disturbed. 

Turning Off the System 

Perform the following steps to turn off the EduSystem 10: 

1. Type CTRL/C to stop any program that is running. 

2. Turn the key lock to OFF. 
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Restarting the System 

Perform the following steps to restart the EduSystem 10: 

1. Turn the key lock to POWER. 

2. Press the CLEAR switch, then the CONT switch. 

3. EduSystem 10 is now ready for use. Turn the key lock to 
PANEL LOCK and remove the key to prevent the sys- 
tem from being accidentally disturbed. 

Reloading the Functions 

If a need arises for functions which were deleted at system load 
time, the functions can be reloaded without reloading the entire 
system. Perform the following steps to reload the functions: 

1 . Type CTRL/C to stop any program that is running. 

2. Turn the key lock to the POWER position; press the 
HALT switch, then raise it again. 

3. Follow the procedure for Initial Installation, starting at 
step 3. Use the shorter tape labeled EDUSYSTEM- 10 
FUNCTIONS ONLY instead of the EDUSYSTEM- 10 
tape. 

Saving Programs on Paper Tape 

Once a program has been typed in correctly, it may be saved on 
paper tape so that it may be reloaded quickly. To save the pro- 
gram, follow this sequence of steps: 

1 . Turn the Teletype control knob to LINE. 

2. Type LIST but do no? press the RETURN key. 

3. Turn the Teletype paper tape punch ON. 

4. Turn the Teletype control knob to LOCAL. 

5. Press the HERE IS key to produce some leader tape. 

6. Turn the Teletype control knob to LINE. 

7. Press RETURN. 

8. When punching is complete, turn the control knob to 
LOCAL. 

9. Press the HERE IS key to produce some trailer tape. 

10. Turn the Teletype punch OFF. 

11. Turn the Teletype control knob to LINE. 
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Reloading Programs from Paper Tape 

Programs punched out on paper tape may be reloaded using the 
Teletype paper tape reader. To reload programs, follow this 
sequence of steps : 

1 . Turn the Teletype control knob to LINE. 

2. Type SCR, then press the RETURN key. 

3. Insert the program tape in the reader, 

4. Turn the Teletype reader to START. 

5. When the tape has read in, turn the Teletype reader to 
FREE. 



3-12 



dhapfcam 

edusystemis 



INTRODUCTION 

EduSystem 15 combines an extended BASIC language with on- 
line DECtape storage to provide a reliable, powerful system. Edu- 
System 15 BASIC has all the standard elements of Dartmouth 
BASIC plus several extended features. BASIC programs run on 
EduSystem 15 can be virtually limitless in size, up to 10,000 
lines, due to a chaining feature that allows programs to be written 
in sections, then connected. A mini-string feature permits users 
to input, manipulate, and output alphanumeric character data, one 
character at a time. 

The ability to store programs on the system DECtape and to re- 
trieve them when needed eliminates the time required to read in 
paper tapes or type in lengthy programs. And EduSystem 15 offers 
protection too : a series of privileged commands that control storing 
programs on DECtape and deleting stored programs from DEC- 
tape. These privileged commands can be used only if the user knows 
the secret password. These features and more make EduSystem 15 
an extremely useful classroom tool. 

System Components 

EduSystem 15 is composed of a table-top computer (PDP-8/F), 
4096 words of core memory, a 256-word Read-Only Memory 
(ROM) for automatic loading, TD8-E DECtape, and a Teletype 
with paper tape reader and punch. Each EduSystem 15 includes 
the BASIC language processor and a library of sample programs, 
textbooks, and curriculum guides. Optional components for the 
EduSystem 15 include a second off-line Teletype for preparation 
of programs and an optional mark card reader for card processing. 
The system can also support high-speed paper tape- reader/punch 
and line printer. 
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BASIC LANGUAGE CAPABILITIES 

EduSystem 15 BASIC includes the language elements shown in 
Table 4-1 at the end of this chapter. Normally, these elements are 
used as explained in Chapter 1. EduSystem 15 also includes many 
advanced BASIC features to allow the user to perform more com- 
plicated and lengthy problem solving routines. BASIC usage differ- 
ences and advanced features are explained in this section. 

Entering Programs 

EduSystem 15 BASIC expects each program to have an assigned 
name. At the beginning of each programming session, the NEW 
command should be typed to clear any existing program and define 
the name of the new program to be entered. 1 To use the NEW 
command, the user types: 

NEW 

and the computer asks for: 

NEW FILE NAME— 

The user then types any name of 1 to 6 characters, followed by 
the RETURN key. BASIC assigns that name to the program to be 
entered. The user may change the name of the program being en- 
tered at any time by typing the NAME command. BASIC again 
asks for NEW FILE NAME and assigns a new name to the pro- 
gram being entered. The NAME command does not delete the 
existing program. 

Using Random Numbers 

The RND function allows the use of random numbers within a 
program. Each time it is used, the RND function returns as its 
value a random value between and 1 . Unlike the other functions, 
the value returned by RND is not a function of its argument. How- 
ever, all functions in BASIC must be followed by an argument. 
Therefore, RND should always be followed by a dummy argument, 
such as zero, which is enclosed in parentheses. 



l If the user does not wish to assign a program name, he can delete any 
existing program by typing the SCRATCH command. 
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NOTE 

Note that it is possible to generate random 
numbers over any range. For example, the 
expression: 

(B-A)*RND<0)+A 

has a random value in the range A < n < B. 

Repeated uses of RND in a program return different values be- 
tween and 1. The sequence of numbers is, however, the same 
each time the program is run. Thus, the sequence is reproducible 
for later checking of the program. The RANDOMIZE statement 
allows the user to make the random number sequence returned by 
the RND function different each time a program is run. That is, 
when executed, the RANDOMIZE statement causes the RND 
function to select randomly a new sequence of random numbers. 
If RANDOMIZE is used, it normally appears as one of the first 
lines in a program. 

Listing the Program 

The LIST command may be used to list out all or a part of the 
current program. LIST prints the program statements in their 
proper order, regardless of the order in which they were entered. 
EduSystem 15's LIST command has four different forms, as shown 
below. 

Command Meaning 

LIST List the entire program. Precede it by a 

header line 2 giving the name of the program. 

LIST n List the program starting at the given line 

number (n) . Precede it by a header line. The 
line number must be separated from LIST by 
two spaces. 

LISTNH List the entire program but do not print a 

header line. 



2 A header line consists of the program name followed, on the same line, by 
the system name (EDU BASIC). If no program name was assigned, the 
system prints "*NONE* EDU BASIC". 
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Command Meaning 



LISTNHn List the program starting at the given line 

number (n) but do not print a header line. 

NOTE 

The programmer may stop a listing at any 
time by typing CTRL/C on the keyboard. 

Executing the Program 

The programmer may execute a program at any time by typing 
the RUN command. The existing program is inspected for errors; 
if none exist, it is executed. If an error is detected, an error mes- 
sage (see Error Messages) is printed. In either case, at the end of 
the run, BASIC prints READY, indicating that the program may 
now be changed or rerun. There are two types of RUN commands: 
RUN and RUN NH. RUN executes the current program, preceding 
it by a header line. RUN NH executes the current program but 
does not print a header line (RUN and NH must be separated 
by a single space). 

Privileged Control Commands 

Several optional commands are available which modify and con- 
trol a program run. All of them are considered to be privileged 
instructions in the sense that the use of them is restricted. The 
privileged commands are available only if the privileged command 
capability was selected when EduSystem 15 was loaded. During 
normal system operation these commands are locked out; if a user 
attempts to use a privileged command, it is ignored and the system 
prints WHAT? 

A special command, the PRIVILEGE command, is used to un- 
lock and make these privileged instructions available. To use it, the 
user types PRIVILEGE and then the RETURN key. The system 
then Waits for the user to type a one to six character password 
code. (The typed characters are not printed.) At the time the 
system was loaded, a password was typed by the user or assigned 
by the system. The characters typed in after the PRIVILEGE com- 
mand are compared to this password. If they match, the PRIV- 
ILEGE command is successful and all privileged commands may 
then be used. If they do not match, the message INVALID PASS- 
WORD is printed and all privileged commands continue to be un- 
available. 
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In short, a user must know the password in order to use any 
privileged command. It is important that the password be kept 
secret. For this reason, the password is never printed when the user 
types it. It is also possible to change the code at any time. The 
instruction to change the code, PASSWORD, is, of course, a priv- 
ileged instruction. The other privileged commands, SAVE and 
UNSAVE, are discussed below. 

DECtape System Storage Capability 

EduSystem 15 allows the system DECtape to be used for per- 
manent on-line storage of programs. Programs stored in this way 
may be loaded instantly, without the need to load a paper tape or 
type in a program. 

Two commands, SAVE and UNSAVE, may be used to change 
the contents of the DECtape storage area. Because the amount of 
storage space is limited, and to prevent accidental erasure of 
stored programs, both SAVE and UNSAVE are privileged com- 
mands. During normal system operation they are disabled. They 
may only be used after a successful PRIVILEGE command has 
been executed. 

The SAVE command stores the current program in the DECtape 
system storage area and gives it the name specified by the last 
NEW, OLD, or NAME command. Any existing program stored 
under this name is deleted. Thus, all stored programs have names 
which may be used to recall them in the future. If a SAVE is at- 
tempted when the privileged commands are locked out, the system 
types WHAT? and ignores the command. If a successful PRIV- 
ILEGE command has been executed, but the storage area is full, 
the message NO SPACE is typed and the program is not stored. 

The UNSAVE command is used to delete a program already 
stored. UNSAVE must be preceded by a NEW, OLD, or NAME 
command which specifies the name of the file to be deleted. The 
user must be certain to use exactly the same program name as he 
used when he first identified the program. Like SAVE, UNSAVE 
will be ignored unless preceded by a successful PRIVILEGED 
command. If the program to be deleted does not exist in the system 
storage area, the message NO SUCH FILE will be printed. No 
program will be deleted. 

The CATALOG command may be used to obtain a list of the 
names of all programs available in the system storage area. The 
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CATALOG list also includes the number of storage blocks used by 
the program. 

EduSystem 15 includes 1348 blocks of storage space. The CAT- 
ALOG command may be used to determine how many of these 
blocks have been used and hence how many are free. If the storage 
space is almost full and another program is to be saved, the 
LENGTH command may be used to determine if there is enough 
room to store the current program. If enough room is not available, 
an existing program must be deleted first. In all cases, the max- 
imum number of stored programs, regardless of size, is 62. 

The user may load programs stored in the system storage area at 
any time by typing the OLD command. After the OLD command 
is entered, the system prints OLD PROGRAM NAME. The user 
then types the name of the program to be loaded. The user must be 
certain to use exactly the same program name as he used when he 
first identified the program. 

ADVANCED SYSTEM CAPABILITIES 

Some users will want to write programs which are too large or 
too complicated to be handled in the normal way. For these users, 
the system includes several capabilities for advanced program. 

Running Very Long Programs 

EduSystem 15 will run programs of up to 6000 characters or 
approximately 250 lines. In some instances, programs which are at 
or near the 6000-character limit and which contain many complex 
FOR, IF, and GOSUB sections will be too big to be run. In this 
case, the NOLINE command may be used to gain more space. If 
NOLINE is. used, the program logic errors which are detected 
while the program is executing will cause an error message to be 
typed but the line number where they occur will not be typed. 
NOLINE allows substantially longer programsr to be run. 

If the program to be run is substantially longer than the 6000- 
character limit, it may still be run by means of the technique 
known as chaining. The program is broken down into pieces, 
each of which is less than 6000 characters. A chained program may 
have many of these pieces and, hence, may be indefinitely long. 
Each piece of the program is then stored in the DECtape system 
storage area with the SAVE command. The final command to be 
executed in all but the last section is a CHAIN statement which 
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contains the name of the next section of the program. For example, 
the statement: 

950 CHAIN "PARTI 0" 

would cause the system to load and execute the stored program 
whose name is PARTI 0. 

The name of the next section of the program must be encoded 
in quotation marks and must be exactly six characters long. If the 
actual name of the next section is less than six characters, one or 
more spaces must be inserted before the second quotation mark to 
make a total of six characters. For example, if the next section of 
the program is named LINK2, the following CHAIN statement 
would be used: 

955 CHAIN "LINK2 " 

Execution of the CHAIN statement loads and executes the 
named program. The previous section of the program is deleted. 
Thus, the user only needs to load the first section and run it. All 
succeeding sections of the chained program are loaded and ex- 
ecuted automatically. 

Using a Data File 

Just as some very advanced programs may be too large to be 
executed in the normal way, other sophisticated programs may 
need to store and use more data than may be accommodated under 
normal system operation. If this is the case, data may be tempo- 
rarily stored in the system -storage area. Data stored in this way is 
referred to as a data file. 

The data file is actually a part of the program data which is de- 
fined by a program's DATA statement. All of a program's data is 
gathered from the DATA statements into a DATA list which is 
read by READ statements. As items are read from the list, they are 
marked as already having been used. A READ statement always 
fetches the next item from the list. In fact, the data list may be 
thought of having a movable marker which remembers which item 
of the list is next. It starts out marking the firsrdata item. As 
READ statements are executed, this marker moves down the list. 
A RESTORE statement moves it back to the top of the list. 
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The data file capability allows a program, by means of a WRITE 
statement, to change and add to this data list as well as to read it. 
The WRITE statement format is the same as the DATA statement 
format. Writing a variable puts the value of that variable in the 
next place in the data list. The data item that was there previously 
is replaced by the new value. If a WRITE statement follows a 
RESTORE, it will change the first item or items in the data list. 
If it follows one or more READs (or WRITEs), the WRITE 
statement will change data items further down in the data list. The 
total number of items which may be put in the data list depends 
on the size of the program. Maximum sized BASIC programs may 
have up to 1000 items; small programs have room for 2000 items. 

Programs which write data out to the data list must keep track 
of how much data has been written and the order in which it was 
output. If data which has been written is to be subsequently read, 
a RESTORE command must be executed to move the marker 
back to the top of the data list. If data has been written off the end 
of the data list, the program must remember how many items the 
data list contains, and be careful not to try to READ more data 
items than are there. The normal BASIC check for end of data 
does not exist for a written data list. The program must also be 
sure that it does not write more data than the data list can contain 
(1000-2000 items). Writing too much data causes part of the 
user's BASIC program to be destroyed. 

The data file is frequently used in conjunction with chaining 
since data written onto the data list by one program section may 
be read by the next section. The program section which writes the 
data must execute a RESTORE just before the CHAIN statement. 
The next section, which will read this, must not have any DATA 
statement of its own since this data would destroy the data items 
written by the previous section. 

Character Variables and String Capability 

All of the standard BASIC statements deal only with numbers. 
All variables are assumed to be decimal values. In fact, BASIC is 
capable of doing many interesting operations on characters or 
words instead of numbers. The character handling capability of 
BASIC depends on the concept of representing individual char- 
acters as numbers. Each character has its own numeric code or 
character code, as indicated in Appendix B. When a character is 
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input, it is converted to a numeric code. All internal processing of 
that character uses this code. Since the code is a number, it may be 
used and manipulated with the standard BASIC statements. When 
the program outputs a character, it uses the character code and 
converts it back into a character. In short, characters stored in a 
BASIC program are indistinguishable from numeric values. The 
only difference is in the way they are used, i.e., that certain numeric 
values actually stand for characters. 

The standard INPUT statement is used to input characters. A 
dollar sign ($) is placed in front of the variable name to indicate 
that a character code is to be input rather than a decimal number. 
When the character is typed, its character code is stored in the 
indicated variable. It is important not to confuse the inputting of 
characters with the inputting of numbers. The potential confusion 
lies in the fact that the numeric values are themselves characters. 
The value 192 is in fact made up of the three characters 1, 9 and 
2. If these three characters were input to a BASIC program as 
character variables, they would be entered as three separate nu- 
meric (character code) values rather than as the single value 192. 
But the physical characters typed at the interactive terminal would 
be identical. Again, the difference is entirely in the way that the 
input is interpreted. 

Unlike the numeric INPUT statement, character INPUT state- 
ments do not cause a question mark to be printed. Therefore, a 
series of characters may be typed without intervening question 
marks. Programs doing character input must therefore indicate, by 
PRINT statements, when input is expected. In the following ex- 
amples, each program executes an INPUT statement. In the pro- 
gram on the left, three characters are entered and three variables 
are set up. In the example on the right, a single numeric value is 
input. 

10 PRINT "ENTER VALUE "; 10 PRINT "ENTER VALUE"; 

20 INPUT $Xl,$X2,$X3 20 INPUT X 

30 PRINT Xl;X2jX3 30 PRINT X 

40 END 40 END 

RUN NH RUN N'H 



ENTER VALUE 234 50 51 52 
READY 



ENTER VALUE7234 
234 

READY 
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Note that INPUT $A accepts the input character immediately 
without a carriage return. Note that the dollar sign is not a part 
of the variable name. It is used only in INPUT statements to indi- 
cate that typed characters are to be converted to their numeric 
character codes before being stored in the variable. 

Character codes may be converted back to their respective char- 
acters by means of the special PRINT command function CHR$. 
CHR$ is the opposite of the dollar sign INPUT convention. It is a 
function which takes as its argument a single constant or variable 
and prints the single character whose character code corresponds 
to that value. For example, PRINT CHR$ (65.) prints the char- 
acter A. CHR$ may only be used in PRINT statements. 

One of the most frequent uses of the character capability is to 
allow words or characters to be entered into BASIC programs in 
response to questions. For example, a program might ask the user 
if he wants to run the program again with a different set of input 
data. The user responds by typing Y if he wants to run again or 
by typing N if not. The program then checks the character code of 
the character entered to see if it equals the character code for Y. 
If so, it branches back to the beginning of the program. Otherwise, 
the program stops. The following program illustrates the use of 
character variables in making a run-time decision. 

10 PRINT 

20 PRINT "WOULD YOU LIKE TO DO THIS AGAIN (Y OR N)?"; 

30 INPUT $A 

40 IF A=#Y THEN 10 

50 IF A<>#N THEN 90 

60 PRINT 

70 PRINT "O.K. IT'S YOUR CHOICE." 

80 STOP 

90 PRINT 

100 PRINT "Y OR N?"; 

110 GOTO 30 

120 END 

RUN NH 

WOULD YOU LIKE TO DO THIS AGAIN <Y OR N)?Y 
WOULD YOU LIKE TO DO THIS AGAIN (Y OR N)?8 

Y OR N?Z 

Y OR N?N 

O.K. IT'S YOUR CHOICE. 

READY 
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The comparisons shown in the preceding program are facilitated 
by a special BASIC language feature. Pound sign (#) followed 
by a single character may be used to indicate the character code of 
the single character following pound sign. In line 40 above, using 
#Y relieves the programmer of the need to remember or reference 
the actual character code for Y. 

Often, the character capability is used to input a series, or string, 
of characters, such as a last name. The string may be any number 
of characters up to a full line. In this case, the program must read 
each character and see if it is the carriage return character (char- 
acter code 13) which indicates the end of the line. Subscripted 
variables are used to store such a series of characters. 



NAME: 



10 


DIM AC72) 


15 


PRINT "TYPE YOUR N 


20 


FOR 1=1 TO 72 


30 


INPUT $A(I) 


40 


IF A(I>=13 THEN 60 


50 


NEXT I 


60 


■ END 



RUN NH 

TYPE YOUR NAME: SUPERSTAR 
READY 

PROGRAM EDITING 

There are two times when a program may require editing pro- 
cedures. The first occurs while a line is being typed but before the 
RETURN key is pressed. The second occurs when a line has been 
completely typed and the RETURN key has been pressed. Each 
situation has its own editing procedures. 

Procedure 1: Before the RETURN key is pressed. 

Three keys may be used to correct typing errors: ALT MODE 
(or ESCAPE), <- (back arrow), or RUBOUT. ALT MODE 
(or ESCAPE) is used to delete an entire line. When this key 
is used, BASIC prints DELETED, erases that line from the 
program, and returns the carriage so that the line may be 
retyped. 

*- (back arrow), SHIFT/0 on the keyboard, or RUBOUT is 
used to delete a character from a line. BASIC prints the back 
arrow, deleting the last character from that line. More than 
one back arrow deletes more than one character, in reverse 
order. 
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Procedure 2: After the RETURN key is pressed. 

Once a line of the program has been transmitted to computer 
memory via the RETURN key, several methods of correction may 
be used. Lines may be inserted, deleted, changed, or renumbered. 

INSERTION : To add a line to a program, assign a line num- 
ber that falls between two existing lines, type the line number 
and text, and press RETURN. 

DELETION: To erase a line from computer memory, type 
the line number only and press the RETURN key. 
CHANGE: To change an individual line, simply retype it. 
The old instruction is replaced by the new one. 
RENUMBER: Occasionally, repeated editing and insertions 
result in there being no more room in an area of a program 
to insert new lines. It is then necessary to spread out the line 
numbers so there is room for new insertions. The RESE- 
QUENCE command is used for this purpose. To renumber 
a program, type the RESEQUENCE command. This com- 
mand changes the first line's number to 100 and renumbers 
each succeeding line with an increment of 10. RESEQUENCE 
also automatically changes all GOTO, GOSUB, and IF state- 
ments to correspond to the new line numbers. 

ERROR MESSAGES 

Some programs execute correctly the first time they are tried. 
Most others, especially if they are at all complex, have errors in 
them. EduSystem 15 checks all statements when they are entered 
and before executing them. If it cannot execute a statement it in- 
forms the user by printing one of the following types of messages. 

Program Loading Errors 

As each line is typed, EduSystem 15 checks it for program load- 
ing errors. If it finds an error, it prints one of the following error 
messages immediately after the erroneous line. 

Message Explanation 

WHAT? Line does not make sense to the sys- 

tem. It does not begin with a line num- 
ber and is not a valid system command. 
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Message 
LINE NO. TOO BIG 

LINE TOO LONG 

NO ROOM 

FILE NOT SAVED 

NO SPACE 

Bell 

I/O ERROR 



INVALID PASSWORD 



Explanation 

The line number of a line or the argu- 
ment of a system command is greater 
than 4095. 

Line just entered is longer than 80 
characters. 

There is no room in memory to store 
the line just entered. 

The program named as the operand of 
an OLD command was not previously 
saved on the system device. 

There is not enough space on the DEC- 
tape to SAVE the current program. 

If an invalid character is entered, the 
Teletype bell rings and the character is 
ignored. 

An input or output error occurred on 
the DECtape unit. Be sure that the unit 
is on-line, write-enabled, and the unit 
number is set correctly. Retry whatever 
was interrupted by the error. If the 
problem persists, there is a hardware 
problem. 

The password typed after a PRIVI- 
LEGE command is not the system 
password. Privileged mode is not en- 
tered. 



Coding Errors 3 

After the RUN (or RUN NH) command is typed, EduSystem 
15 checks each statement and command before executing it for 
mistakes in the BASIC program coding. If it cannot execute a 

3 To correct the coding errors indicated by the messages, the appropriate line 
in the program must be corrected in the manner described under Program 
Editing, Procedure 2. 
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statement or command, it informs the user by printing one of the 
following messages and the line number in which the error was 
found. 



Message Explanation 

CH There is an illegal character in the line. 

EN Program does not have END statement as the last line 
in the program. 

FN Not enough NEXT statements in the program. There 
must be a NEXT statement for each FOR statement in 
the program. 

FO FOR and NEXT statements do not match. There is a 
NEXT statement in the program whose variable is not 
the same as the variable in the corresponding FOR 
statement. 

LI Line contains an improperly written decimal number or 

constant. It may, for example, have two decimal points 
or have an alphabetic character in it. 

Ml The program as a whole is too large to be run by the 
M2 system. Making the program smaller, reducing the size 
of subscripted variables, or using the NOLINE com- 
mand may help. 

NE Program has too many (more than 8) FOR-NEXT 
loops one within another. 

PC Line contains an improperly used parenthesis. Gener- 

ally, the problem is an expression which does not have 
an equal number of left and right parentheses. 

RO Statement contains an invalid relational operator (<, 
=,>, <=, >=). Relational operators may only be used 
in IF statements. 

51 Statement as a whole is not properly written and, as a 

52 result, does not conform to proper BASIC syntax. For 
example, a semicolon is allowed in a PRINT statement 
but not in a READ or INPUT statement. 
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Message Explanation 

ST Statement's command word is not one of the BASIC 
statement types. 

TB The program is too large to be run. Cause is usually an 
extremely large number of PRINT statements. 

TO Program is either too large or too complex to be run. 
The total number of variables, constants, functions, and 
line numbers should be reduced, if possible. 

UL A GOSUB, GOTO, or IF statement contains a line 
number which does not exist. 

UQ A quotation mark indicating the beginning of a string of 
text does not have a corresponding quotation mark at 
the end of the text string. 

Program Logic Errors 4 

Some errors do not show up until the program is actually exe- 
cuted. An example of this type of error is an expression which 
uses a square root of a variable. If, when this square root is ac- 
tually calculated, the variable has a negative value, a program 
logic error has occurred. EduSystem 15 prints the following mes- 
sages if program logic errors occur. 

Message Explanation 

CH A CHAIN statement tried to chain to a program which 
was not available in the DECtape storage area. 

CO Program ran too long and was automatically stopped by 
the system. 

DA The program ran out of data. It attempted to do a 
READ after all data had been read. 



4 Some program logic errors may be corrected by the method described 
under Program Editing, Procedure 2. Most, however, necessitate the re- 
writing of the program. 
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Message Explanation 

DO The program attempted to divide by zero. Instead of 
dividing by zero, BASIC divides by the smallest possible 
number, giving a result of about 10 500 . This error does 
not cause the program to stop. 

FN An expression contains a function which was not defined 
in a DEF statement. 

GS The program is too complex to be executed. The prob- 
lem is generally that too many subroutines have them- 
selves executed GOSUB instructions. 

LG Program attempted to take the logarithm of a negative 
number ©pzero. 

RE A RETURN statement was used outside of a subroutine 
or a subroutine was entered by a GOTO instead of a 
GOSUB. 

SP See GS. 

SQ Program attempted to take the square root of a negative 
number. BASIC automatically takes the square root of 
the absolute value of the number instead. This error 
does not cause the program to stop, 

SS Program used a subscript which was too large for the 

variable. The maximum size of a subscript is specified 
in a DIM statement. 

WR There is no more room on the DECtape to write data. 
The program attempted to do a WRITE statement when 
the data list was full. (Note that if this error occurs, the 
program text will no longer be intact. A NEW, OLD, 
or SCR command must be used to clear the program 
area. ) 

OPERATING INSTRUCTIONS 

Loading the System 

When EduSystem 15 is first installed, it must be loaded with a 
special software program, the BASIC language processor. Once this 
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software has been loaded, it need not be reloaded. Perform the fol- 
lowing steps to load BASIC. 

INITIALIZE THE DECTAPE UNIT 

Perform the following steps to prepare the TD8E DECtape unit 
for software loading. 

1. Set the REMOTE/OFF/LOCAL switch to OFF. 

2. Place a DECtape on the left spindle with the DECtape 
label out. 

3. Wind four turns of tape onto the right spindle. 

4. Set the REMOTE/OFF/LOCAL switch to LOCAL. 

5. Wind a few turns of tape onto the right spindle with the -» 
switch to ensure that the tape is properly mounted. 

6. Dial on the unit selector dial. 

7. Set the REMOTE/OFF/LOCAL switch to REMOTE. 

8. Set the WRITE ENABLE/WRITE LOCK switch to 
WRITE ENABLE. 

INITIALIZE COMPUTER MEMORY 

To initialize the PDP-8/F memory, perform the following steps. 

1. Turn the key lock on the front of the computer to 
POWER. 

2. Perform the following set of switch manipulations on the 
SWITCH REGISTER (to the left of the ADDR LOAD 
switch). In each step, there are 12 figures which corre- 
spond to the 12 switches labeled SWITCH REGISTER 
(SR) on the front of the computer. The £ symbol in- 
dicates that the corresponding switch should be set to its 
"up" position. The o symbol means that the correspond- 
ing switch should be set to its "down" position. The octal 
instructions which correspond to this diagram appear on 
the right. 5 



5 Octal instructions are provided for those familiar with the octal, or base 8, 
number system. An explanation of this system is included in Introduction 
to Programming 1972. 
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Set SR to: QQQ 099 QQQ QQQ then press OCTAL 

^S j,** *** *** EXTD ADDR LOAD 0000 

SetSRto: 444 444 4o4 44^ then press ADDR LOAD 7756 

SetSRto: 44o 099 o44 o4p then lift DEP 6032 

SetSRto: 44o 099 o44 Qo4 then lift DEP 6031 

SetSRto: 4o4 £fHft • pi ### then lift DEP 5357 

SetSRto: 44o OOO 0*^ 44o then lift DEP 6036 

SetSRto: 444 0^)4 ££0. 44o. then lift DEP 7106 

SetSRto: 444 OOO 099 44o then lift DEP 7006 

SetSRto: 444 4o4 Op4 009 then lift DEP 7510 

SetSRto: 4o4 $44 4o4 444 then lift DEP 5357 

SetSRto: 444 OOO 000 44 O then lift DEP 7006 

SetSRto: 44o 999 9^ 00^ then lift DEP 6031 

SetSRto: 4 o4 944 44o 444 then lift DEP 5367 

SetSRto: 44 O 099 944 499 then lift DEP 6034 

SetSRto: 444 4o£ $4o_ CjXjXj) then lift DEP 7420 

SetSRto: o44 444 444 44$ then lift DEP 3776 

SetSRto: 0*4 o44 444 449 then lift DEP 3376 

SetSRto: 4o4 o44 4o4 44o then lift DEP 

and again lift DEP 5356 



3. Place the tape labeled EDUSYSTEM 15 in the Teletype 
paper tape reader. Position the tape at the single row of 
holes punched at the beginning of the tape. Turn the Tele- 
type control knob to LINE. 

4. Set the SR to 444 444 4o4 44<j> (7756); then press 
ADDR LOAD. 

5. Press the CLEAR switch, then the CONT switch. Push 
the paper tape reader switch to START. The tape should 
begin to move: If it does not, repeat steps 2, 3, and 4. 
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System Building Dialog 

When the EDUSYSTEM 15 paper tape has read in properly, 
BASIC prints a series of questions (see Figure 4-1). The user re- 
sponds by typing Y for yes and N for no on the Teletype. 



STANDARD SYSTEM? 



Since EduSystem 15 has optional operating modes and may be 
used with optional components, if present, this question is always 
answered no (N). 

The next four questions: 



IS SYSTEM DEVICE A DF32 DISK? 

TC01 DECTAPE? 
RF08 DISK? 
LINCTAPE? 



are always answered no (N) since none of these devices are avail- 
able with the EduSystem 15. A response of yes (Y) to any of the 
above will result in the following message, and EduSystem 15 will 
begin the dialog again. 



SYSTEM DEVICE I/O ERROR 
The system's next question is: 

TD8E DECTAPE? 

and the user responds Y. 
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YES OR NO 

(IF YES, SEE CHAPTER 7) 



Figure 4-1. System Building Dialog 
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Figure 4-1. (Cont.) System Building Dialog 
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EduSystem 15 then asks: 



DO YOU HAVE A TD8E ROM? 



Answer this Y if the EduSystem 15 has a TD8E Read Only Mem- 
ory. If the user answers N, the system asks : 

8K OF CORE? 

Since the system will have either the Read Only Memory or the 8K 
of core memory, answer this question Y. (The question will not be 
asked if the user answered Y to the previous question. ) 
EduSystem 15 then asks: 

DO YOU WANT BATCH CAPABILITIES? 

If the EduSystem 15 has an optional card reader, answer Y and 
refer to Chapter 7 (EduSystem 30) for additional instructions. If 
not processing card programs, answer N. 
Next the system asks: 

DO YOU WANT PRIVILEGED COMMAND CAPABILITY? 

The privileged command capability prevents unauthorized users 
from executing critical system commands. To establish this pro- 
tection, the user types Y. The system then prints : 

TYPE INITIAL PASSWORD 

The password is a special code which must be known to use priv- 
ileged commands. Type a 1 to 6 character password, the first 
character of which is alphabetic. If no privileged capability is de- 
sired, respond to the original question with N; the system will not 
ask for a password. 

The system asks if a high-speed paper tape punch and/or line 
printer are part of the system. 

DO THE FOLLOWING EXIST: 
HIGH-SPEED PUNCH? 
LP08 PRINTER? 
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The response to each question must be Y if the device exists; N if 
it does not. Normally, an EduSystem 15 will have neither device. 
The system's next question is: 

PROGRAM LIBRARY INITIALLY EMPTY? 

The user's response should be Y unless there are programs pre- 
viously stored within the system which are to be kept. If this is the 
case, N must be typed as the answer and the questions in boxes 1 
through 8 of the flowchart must be answered in the same way as 
when the system was built when the program library was empty.. 
When all questions have been answered, the system types: 

IS THE ABOVE CORRECT? 

If all questions have been answered properly, type Y. The system 
will load the rest of the EduSystem 15 paper tape. If any of the 
responses were erroneous, type N; the set of questions is repeated. 
When the entire tape has been read, EduSystem 15 gives the 
user a chance to load additional DEC-supplied system update tapes 
by asking: 

MORE INPUT? 

If no DEC-supplied update tapes exist, respond N and EduSystem 
15 is loaded. If update tapes do exist, load the first one into the 
tape reader and type Y to begin loading. 

Finally, when all input has been read in, EduSystem 15 indicates 
that it is ready to process BASIC programs by printing: 

READY 

At this time, turn the key lock to PANEL LOCK and remove the 
key to prevent the system from being accidentally disturbed. 

DIAGNOSTIC MESSAGES DURING SYSTEM BUILDING 

The following error messages are printed when errors are de- 
tected during the building of EduSystem 15. 

TAPE READY? 
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This message is typed whenever the system is waiting for the 
paper tape reader to be loaded. It may appear by itself, usually due 
to a tape tear or reader jam, or it may appear as the last line of an- 
other diagnostic message. 

ACTION: 

1. The portion of the paper tape which is read after the sys- 
tem building dialog has distinct blocks of information 
about two and one-half tape fanfolds long. The start of 
such a block is indicated by nine blank tape frames fol- 
lowed by a frame with all positions punched. 

Back up the tape several fanfolds to the beginning of a 
previously read block. Position the tape such that the 
blanks at the beginning of the block are over the read 
station. 

2. Type Y on the interactive terminal. 



BAD PLACE TO START TAPE 
TAPE READY? 



This message means that after a previous message the user did 
not correctly position the tape to the beginning of a data block. 
(See discussion under TAPE READY? message.) 

ACTION: 

1 . Correctly position the tape. 

2. Type Y on the interactive terminal. 



CHECKSUM ERROR 
TAPE READY? 



A checksum error occurred while the most recent data block 
was being read. 

ACTION: 

1 . Back up the tape to the beginning of the block. 

2. Type Y to reread the data. 



SYSTEM DEVICE I/O ERROR 
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If this message occurs before the dialog has been completed, the 
dialog will automatically begin again. If an I/O error occurs after 
the dialog is completed the TAPE READY message will appear. 

ACTION: 

1. Make sure that the system device is on line and write- 
enabled and the unit number is set correctly. 

2. Respond appropriately to the question which follows the 
. message. 

Turning Off the System 

The system may be powered down when it will not be used for 
extended periods of time, such as overnight. The procedure is as 
follows: 

1 . Type CTRL/C to stop any program that is running. 

2. Turn the key lock to OFF; turn the DECtape unit and 
Teletype to OFF. 

Restarting the System 

The system may be restarted at any time without reloading by 
the following procedure: 

1. Initialize the DECtape unit. 

2. Turn the key lock to POWER and the Teletype to LINE. 

3. Set the SR to 444 44<J 999 999 (7600); then press 
ADDR LOAD. 

4. Press CLEAR switch, then the CONT switch. 

5. EduSystem 15 is now ready for use. Turn the key lock to 
PANEL LOCK and remove the key to prevent the system 
from being accidentally disturbed. 

Saving Programs oh Paper Tape 

Once a program has been typed in correctly, it may be saved on 
paper tape so that it may be reloaded quickly. To save the program, 
perform the following steps: 

1. Turn the Teletype (TTY) control knob to LINE. 

2. Type LISTNH but do not press the RETURN key. 

3 . Turn the TTY paper tape punch ON. 

4. Press SHIFT/CTRL, type "PPPPPP" to produce some 
leader tape. 

5. Press the RETURN key. 
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6. When punching is complete, press SHIFT/CTRL, type 
"PPPPPP" to produce some trailer tape. 

7. Turn the TTY punch OFF. 

Reloading Programs from Paper Tape 

Programs punched out on paper tape may be reloaded using the 
Teletype (TTY) paper tape reader. The TAPE command is used 
to load programs from paper tape. To reload programs, perform 
the following steps: 

1 . Insert the paper tape in the TTY reader. 

2. Turn the TTY control knob to LINE. 

3. Type NEW, then press the RETURN key. 

4. Type the program name. 

5. Type TAPE, press the RETURN key. 

6. Turn the TTY paper tape reader to START. 

7. When the tape has read in, turn the TTY reader to FREE. 
A special control command, ECHO, may be used with TAPE to 

prevent the program from being listed while it is being read. The 
first time it is used, ECHO inhibits all printout. A second ECHO 
command restores normal printout. 



Table 4-1. EduSystem 15 BASIC Statement Summary 



Statement 



LET 

PRINT 

READ 

DATA 

RESTORE 

WRITE 

GOTO 

IF GOTO \ 

IF THEN J 

FOR TO STEP 

NEXT 

DIM 

GOSUB 

RETURN 

INPUT 

REMARK (REM) 

RANDOMIZE 

DEF 



Description 



Assign a value to a variable. LET is optional. 

Print out the indicated information. 

Assign values from data list to variables. 

Provide data for a program. 

Restore the data list. 

Record data on DECtape storage file. 

Change order of program execution. 

Conditionally change order of program 

execution. 

Set up a program loop. 

End a program loop. 

Define subscripted variables. 

Go to a subroutine. 

Return from a subroutine. 

Get values from the Teletype. 

Insert a program comment. 

Cause RND function to randomly select new 

sequence of random numbers between and 1. 

Define a function. 
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Table 4-1. (Cont.) EduSystem 15 BASIC Statement Summary 



Statement 



Description 



CHAIN 
NOLINE 



STOP 
END 

Editing and Control 

LIST 
LIST n 
LISTNH 

LISTNHn 

RUN 

RUN N H 
SCRATCH(SCR) 

CTRL/C 



TAPE 
ECHO 

RESEQUENCE 

NEW 
OLD 

NAME 
CATALOG 
(or CAT) 
LENGTH 

PRIVILEGE 
(or PRI) 



Link to next, section of a program which is 
stored within the system. 

Do not print out the line number in which pro- 
gram logic errors are found. (Allow larger-than- 
normal programs to be run without chaining.) 
Stop program execution. 
End a program. 

Commands 

List all stored program statements. 
List program starting at line n. 
List all program statements but do not print a 
header line. 

List program starting at line n but do not print 
a header line. 

Execute the current program. 
Same as RUN without header line. 
Delete the currently stored (in memory) pro- 
gram. 

Stop execution of a program or printing of a 
listing. CTRL/C is typed by pressing C while 
holding down the CTRL key. 
Read a program from paper tape. Ignore any 
line which does not begin with a line number. 
Switch from printout to non-printout mode or 
vice versa. 

Renumber program lines. 
Clear memory, request program name. 
Clear memory, bring program to memory from 
storage area. 

Same as NEW but does not clear memory. 
Print out the names of programs in storage area. 

Print out the number of blocks needed to store 
the current program. 

Enable use of privileged commands. To be suc- 
cessful, this command must be followed by the 
correct password. This command is recognized 
only if the privileged command capability was 
selected at system load time. 
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Table 4.1J. (Cont.) EduSystem 15 BASIC Slatement Summary 



Statement 



Description 



Privileged Commands 

PASSWORD 

SAVE 



UNSAVE 

Functions 

ABS(X) 

ATN(X) 

COS(X) 

EXP(X) 

INT(X) 

LOG(X) 

RND(X) 

SGN(X) 

SIN(X) 

SQR(X) 

TAN(X) 

TAB(X) 

CHR$(X) 



Change the password code- 
Save the current program in the system storage 
area. 

Delete the named program from the system 
storage area. 

Absolute value of x. 

Arctangent of x (result in radians). 

Cosine of x (x in radians). 

e x (e=2.7 18282). 

Greatest integer of x. 

Natural logarithm of x. 

Random number. 

Sign of x (+1 if positive, — 1 if negative, if 

zero). 

Sine of x (x in radians). 

Square root of x. 

Tangent of x (x in radians). 

Controls printing head position on Teletype. 

Converts character code to character. Used 

only with the PRINT command. 



6 The privileged commands may only be used after a successful PRIVILEGE 
command has been executed. 
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edusystem 20 



INTRODUCTION 

EduSystem 20 is a multi-user BASIC system. The system is 
composed of from one to eight terminals connected on-line to a 
PDP-8/E computer. This means that, depending on the number of 
on-line terminals, EduSystem 20 allows up to eight different BASIC 
programs to be run at the same time. EduSystem 20 terminals need 
not be in the same room, or even in the same building as the com- 
puter. They may be placed in remote locations and connected to 
the computer by regular telephone lines. 

In addition to letting several persons use BASIC at the same 
time, EduSystem 20 allows users to operate BASIC in two different 
modes: immediate and programmable. Immediate mode allows the 
user to perform arithmetic calculations without writing programs. 
Programmable mode enables programs to be written in BASIC, 
stored in computer memory, and, if desired, saved on paper tape. 
Both modes provide a printed copy of the problem and the solution. 

EduSystem 20 BASIC also includes advanced features that en- 
able a user to perform more complex programming tasks. These 
features include the ability to enter a subroutine if certain condi- 
tions are met, to write multiple statements per line, and to use a 
search character to edit a program line. 

System Components 

EduSystem 20 is composed of a PDP-8/E computer with 8192 
words of core memory, power fail protection, automatic loader 
(hardware bootstrap), and up to 4 terminals and their associated 
interfacing. Each EduSystem 20 includes the BASIC language pro- 
cessor and a library of sample programs, textbooks, and curriculum 
guides. An additional 4096 words of core memory enable Edu- 
System 20 to handle up to 4 more terminals (for a total of 8). 
One or more off-line terminals may also be added for paper tape 
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preparation. The system can also support a high-speed paper tape 
reader/punch. 

System Expansion 

EduSystem 20 may be easily expanded to intermediate-sized 
EduSystems 25 or 40, or to the total school computer system, Edu- 
System 50. To expand to EduSystem 25, add 4096 words of core 
memory, DECtape, and an EduSystem 25 software kit. Expansion 
to EduSystem 40 requires a DECdisk or DECtape, an optional 
mark card reader, and an EduSystem 30 software kit. (Chapters 6 
and 8 fully describe the capabilities of EduSystem 25 and Edu- 
System 40, respectfully.) 

EDUSYSTEM 20 BASIC 

EduSystem 20 BASIC has all the standard elements of Dart- 
mouth BASIC plus several extended features. Tables 5-1 and 5-2 
summarize the system's BASIC language capabilities. The extended 
features are discussed below. 

Abbreviated Commands 

All commands and statement keywords can be abbreviated to the 
first three letters, as shown in Table 5-1. 



Table 5-1. EduSystem 20 BASIC Statement Summary 



Command 
(Abbreviation) 



Explanation 



LET 

READ(REA) 
DATA(DAT) 
PRINT(PRI) 

RESTORE(RES) 
GOTO(GOT) i 
IF THEN(IF TJIE) 



FOR TO STEP 
(FOR TO STE) 
NEXT(NEX) 
GOSUB(GOS) 
RETURN(RET) 
ON GOTO(ON GOT) 



Assign a value to a variable. LET is optional. 
Assign values from data list to variables. 
Provide data for a program. 
Print out the indicated information on the 
Teletype. 

Restore the data list. 
Change order of program execution. 
Conditionally perform specified operation or 
conditionally change order of program execu- 
tion. 
Set up a program loop. 

End of program loop. 
Go to a subroutine. 
Return from a subroutine. 
Conditionally change order of program execu- 
tion according to evaluation of formula con- 
tained in statement. 
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Table 5-1 (Cont.). EduSystem 20 BASIC Statement Summary 



Command 
(Abbreviation) 



Explanation 



ON GOSUB 

(ONGOS) 

INPUT(INP) 

REMARK(REM or ') 

RANDOMIZE 

(RAN or RANDOM) 

DEFFN 

STOP(STO) 

END 



Conditionally go to a subroutine according to 
evaluation of formula contained in statement. 
Get values or expressions from the Teletype. 
Insert a program comment. 
Cause RND function to randomly select new 
sequence of random numbers between and 1. 
Define a function. 
Stop program execution. 
End a program. 



Editing/ Control Commands 



LIST(LIS) 

LIST n(LIS n) 

LIST n, m(LIS n, m) 

DELETE n(DEL n) 

DELETE n, m 

(DEL n, m) 

EDIT n(EDI n) 

KEY 

RUN 

SCRATCH(SCR) 

TAPE(TAP) 



PTR 
PTP 
CTRL/C 



BYE 

NEW 



List entire program in memory. 

List line n. 

List lines n through m inclusive. 

Delete line n. 

Delete lines n through m in'clusive. 

Search line n for the character typed. 

Return to KEY (normal) mode. 

Execute the current program. 

Erase the current program from memory. 

Read a program from the Teletype paper tape 

reader or punch a program on the Teletype 

paper tape punch. 

Read a program from the high-speed paper 

tape reader. 

Punch a program out on the high-speed paper 

tape punch. 

Stop a running program, print STOP, and 

then READY. CTRL/C is typed by pressing 

C while holding down the CTRL key. 

Same as SCRATCH. 

Same as SCRATCH. 



Table 5-2. EduSystem 20 BASIC Function Summary 



Function 


Description 


ABS(X) 


Absolute value of x 


ATN(X) 


Arctangent of x (result in radians) 


COS(X) 


Cosine of x (x in radians) 


EXP(X) 


e x (e=2.712818) 


INT(X) 


Greatest integer of x 
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' Table 5-2 (Cont.). EduSystem 20 BASIC Function Summary 

Function Description 

LOG(X) Natural logarithm of x 

RND(X) Random number 

SGN(X) Sign of x (+ 1 if positive, — 1 if negative, if zero) 

SIN(X) Sine of x (x in radians) 

SQR(X) Square root of x 

TAN(X) Tangent of x (x in radians) 

TAB(X) Controls printing head position on Teletype. 

TAB(X) Truncates decimal portion of x. 

CHR$(X) Converts character code to character. Used only with 
PRINT statement. 



Multiple Statements per Line 

EduSystern 20 allows more than one statement to be typed on a 
single line. Statements after the first begin with a back slash char- 
acter (\) whibh is SHIFT/L on the keyboard. A program is often 
more understandable when statements, such as a series of LET's, 
are grouped into a single line. For example, the program: 

10 X=82\Y=75\Z=98 
20 PRINT (X+Y+Z)/3 

is the same as 

10 LET X=82 

20 LET Y=75 ; 

30 LET Z=98 ■ 

40 PRINT <X+Y+Z>/3 

and will produce the same result when the RUN command is 
typed: 1 

RUN 
85 

READY 

Since EduSystem 20's memory is being shared by several users, 
this multiple-statement capability is helpful when writing long pro- 
grams. Statements require less storage in the computer when they 
are grouped as a single statement. 



i Notice that EduSystem 20 BASIC does not require the use of an END 
statement. 
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Immediate Mode 

EduSystem 20 allows certain BASIC statements to be used in 
immediate mode, that is, to be issued and executed immediately 
without being included in a formal program. Statements commonly 
used with immediate mode are PRINT, LET, FOR, and NEXT. 
Immediate mode is a quick way to calculate expressions and equa- 
tions. For example, the statement: 

PRINT SQRC144) 

followed by the RETURN key, causes the square root of 144 to be 
printed immediately, as follows : 

12 

READY 

BASIC then prints READY to indicate that another immediate 
mode statement or a program may be entered. Immediate mode 
statements are not stored in computer memory. 

Typing multiple statements per line is especially useful in the im- 
mediate mode. A table of random numbers could, for example, be 
generated by typing the following single line and pressing RE- 
TURN: 

FOR D=l TO 20\PRINT RND(0),\NEXT D 

.2431684 .2983412 .7295008 .3125257 .3095865 

.04493979 .4834217 .4961024 .5010026 .04103271 

.2373254 .3046887 .1923863 .9121199 .241212 

.9882844 .2587987 .03323189 .8701425 .9218898 

READY 

Nearly all the BASIC statements and commands may be exe- 
cuted in immediate mode. This is an excellent way to introduce 
students to the BASIC language, as the statements and commands 
can be exercised and understood before the student begins pro- 
gramming: 

Immediate mode statements can also be used with programs. 
For example, an immediate GOTO statement may be used to start 
a program at a point other than the beginning. This is accom-i 
plished by loading the jprogram into computer memojy^and typing;' 
f r exampjev 



100 INPUT A 



GOTO 5 

After the RETURN key is pressed, the program execution will 
begin automatically at line number 50. In this case, the RUN 
command need not be typed. 

INPUT Statement 

The INPUT statement described in Chapter 1 allows a number, 
or numbers, to be entered from the TTY as values for variables. 
EduSystem 20 allows the user to respond to the INPUT query (?) 
with a value or mathematical expression. An expression may con- 
tain one or more arithmetic operations and may use any BASIC 
function. For; example, the statement: 

f\Uff{/. TVK5IS i<Muftte* 
sitivdot wtMjtl-M* CtcdfrAl 

could be answered in any of the following ways: 

?48 \rf ii\j (\J-f ^SMMVt I^X 

?10*<l46+128>/3 "f . " 

7 55t2 + sQR(i2i) i^inP, "x's^Ar'A "y's \)At * VMM >, \j 

This capability could bVusearo enable one program to solve more 
than one problem. 

As explained in Chapter 1, the INPUT statement may have mul- 
tiple inputs. These inputs may be either mathematical expressions 
or numeric values. For example, the statement: 

10 INPUT A,B,C 

could be answered as follows: 

?33,L0G(33),33t5 

Comments 

Previously^ the use of the REMARK (or REM) command to 
introduce a comment on a single line was discussed. Comments 
may also be appended to any line by starting the comment with a 
single apostrophe ('). All characters typed after the apostrophe on 
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a single line are ignored when the program is executed. For ex- 
ample: 

10 LET X=4 'SET X TO ITS INITIAL VALUE 
20 GOTO 10 'LOOP BACK TO START 

When included within a PRINT statement message, the apos- 
trophe is not considered as the start of a comment. For example: 

12 PRINT "X'S VALUE IS M ;X 

prints 

X'S VALUE IS 4 

When responding to an INPUT statement, the user may add a 
comment which will print on the Teletype but have no effect on 
the running program. For example: 



10 INPUT A 
20 PRINT A 
RUN 



Subscripted Variables 

In chapter 1, the DIM statement is used to permit subscripts of 
more than 10. EduSystem 20 BASIC defines all variables as they 
occur, so the DIM statement is not necessary. The system imposes 
the following limits on subscript size: 

• Single subscripts: to 2047 

• Double subscripts: to 63 for each subscript 

Consider the following example. Notice that a variable has a 
value of until it is assigned a value. 
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10 REM - MATRIX CHECK PROGRAM 

20 FOR 1=0 TO 6 

22 LET A(I,0)=I 

25 FOR J=0 TO 10 

28 LET A(0,J)=J 

30 PRINT ACI,J>; 

35 NEXT J 

40 PRINT 

45 NEXT I 

RUN 
0123456789 10 
10000000000 
20000000000 
30000000000 
40000000000 

50000000000 
60000000000 



/ 



; eady ^LM^^^^^^ti 

IF THEN Statement 

The IF THEN statement described in Chapter 1 is used to trans- 
fer conditionally from the normal order of program execution. For 
example: 



50 IF X>Y THEN 200 

transfers control to line 200 if X is greater than Y. If X is not 
greater than Y, control transfers to the line following line 50. Edu- 
System 20 BASIC uses the IF THEN statement in this way to 
change the order of program execution. It also allows the IF THEN 
statement to conditionally perform an operation without changing 
the order of program execution. For example : 

50 IF X>Y THEN PRINT "X>Y" 

If X is greater than Y, BASIC prints X > Y. Whether or not X 
is greater than Y, the next statement executed is the one following 
line 50. IF THEN used in this manner does not change the order 
of program execution. 
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The IF THEN statement can also be used to transfer control to 
a subroutine. For example: 



25 IF AfB=C THEN GOSUB 100 



If A + B equals C, control is transferred to the subroutine at line 
100. 

Truncation Function (FIX) 

EduSystem 20 BASIC includes all the functions discussed in 
Chapter 1 (see Table 5-2). In addition, it includes the truncation 
function (FIX) which returns the integer part of x. For example: 

PRI FIXC-842.756) 
-842 

Notice that FIX is like INT for positive arguments. In fact, FIX 
could be defined as : 

FIX(X)=SGN(X)*INT (ABS(X)) , < // 

actiuffy bk djLftmtitfk ^tfatfm mymwA; um^y^ 

CHR$ Function Z^J Akcfakw^ <M~QaMM f\ P ' X . 5a v5k (tf . 
Occasionally, it is desirable to type a character other than the 
printing ASCII set (see Appendix B) or to convert ASCII char- 
acter codes to their respective characters. A special PRINT state- 
ment function, CHR$, is used for this purpose. This function 
takes as its argument a single constant or variable and prints the 
single character whose character code corresponds to that value. 
For example: 



10 FOR 1=0 TO 9 rVt-SO , 

20 PRINT CHRSCI+48); _ . , yA <fr /] tf ) V 

30 NEXT I WDtTT^^^ V 

0123456789 *f-p> ^L v^T5>f1^ &* ' ^ \J/ \ " 

READY -4 Ml^Kfa*™^^^ 

This program prints "0123456789" because 48 to 57 are the 
ASCII values for the characters through 9. The following spe- 
cial characters can also be printed using the CHR$ function: 

70 PRikj7."MuLL" 5-9UM CWtXC^Sto) 



Bell CHR$(7) 

Line feed CHR$(10) 

Carriage return CHR$(13) 

Quote (") CHR$(34) 

Back arrow (<-) CHR$(95) 

Form feed CHR$(12) 

For each ASCII character there is a second acceptable form of 
CHR$ function. The second code is obtained by adding 128 to the 
ASCII code given in Appendix B. For example, both CHR$(65) 
and CHR$(193) cause the character A to be output. 

ON-GOTO Statement 

The ON-OOTO statement permits the program to transfer con- 
trol to one of a set of lines depending on the value of a formula. 
The statement is of the form: 

line number ON formula GOTO line number, line number . . . 

The formula is evaluated and then truncated to an integer. This 
integer is used as an index to tell which of the line numbers re- 
ceives control. If the integer is 1, the first line number is used; if it 
is 2, then the second is used; etc. Obviously, the formula after 
truncation cannot be zero or negative or greater than the number 
of line numbers in the list. For example: 



10 ON A+2 GOTO 100,200,300,400 

If A is 2, then control is passed to line 400. The range A can have 
in this example is —1 to 2. 

ON GOSUB Statement 

The GOSUB and RETURN statements are used to allow the 
user to transfer control to a subroutine and return from that sub- 
routine to the normal course of program execution (see Chapter 1 ) . 
The ON GOSUB statement is used in the same manner as the ON 
GOTO statement described previously. The statement is of the 
form: 

line number ON formula GOSUB line number, line number . . . 
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The formula is evaluated and then truncated to an integer. De- 
pending on the value of the integer, control is transferred to the 
subroutine which begins at one of the line numbers listed. When 
the RETyRN statement is encountered, control transfers to the 
line following the ON GOSUB line. For example : 

50 ON X GOSUB 200,300,400 

If X is 1, 2, or 3, control will transfer to line 200, 300, or 400 
respectively. If X is not equal to 1, 2, or 3, line 50 is ignored „ 

jerror 2r^w 50 OuUJlJjD J/OJd 



RANDOMIZE Statement 

The random number (RND) function produces a random num- 
ber between and 1, as described in Chapter 1. A given program 
that uses the RND function always produces the same random 
numbers each time it is run. If the user wants the random number 
generator to calculate different random numbers every time the 
program is run, EduSystem 20 BASIC provides the RANDOMIZE 
statement. RANDOMIZE is normally placed at the beginning of a 
program which uses the RND function. When the program is exe- 
cuted, RANDOMIZE causes the RND function to choose a random 
starting value so that the same program will give different results 
each time it is run. For example: 



10 RANDOMIZE 
20 PRINT RNDC0) 



prints a different number each time it is run. For this reason, 
it is good practice to debug (detect, locate, and correct mistakes) 
a program completely before inserting the RANDOMIZE statement. 
To demonstrate the effect of the RANDOMIZE statement on 
two runs jpf the same program, the RANDOMIZE statement was 
inserted as line 15 in the following example: 
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.2431684 
.2988412 
.7295008 
.3125257 
.3095865 



15 RANDOM 

20 FOR 1=1 TO 5 

25 PRINT "VALUE' 

30 NEXT I 

RUN 

VALUE 1 IS 

VALUE 2 IS 

VALUE 3 IS 

VALUE 4 IS 

VALUE 5 IS 



READY 

RUN 

VALUE 1 IS 

VALUE 2 IS 

VALUE 3 IS 

VALUE 4 IS 

VALUE 5 IS 

READY 



I "IS" RNDC0) 



.6181684 
.4238412 
.1045008 
.4375257 
.6845865 



ERROR MESSAGES 

EduSystem 20 checks all statements and commands before exe- 
cuting them. If it cannot execute a statement or command, it in- 
forms the user by printing an error message and the line number 
in which the error was found. Error messages for EduSystem 20 
are shown in Table 5-3. 

Table 5-3. EduSystem 20 Error Messages 



Message 



Explanation 



WHAT? 



ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 



1 

2 
3 
4 
5 
6 
7 



Immediate mode statement or command not under- 
stood. It does not begin with a line number and is not 
a valid system command. 

Log of negative or zero number was requested. 
Square root of negative number was requested. 
Division by zero was requested. 

Overflow— exponent greater than approximately +38. 
Underflow— exponent less than approximately —38. 
Line too long or program too big. _ 

Characters are being typed in too fast; use TAPE 
command for reading paper tapes. 
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Table 5-3 (Cont.). EduSystem 20 Error Messages 



Message 



Explanation 



ERROR 


8 


ERROR 


9 


ERROR 


10 


ERROR 


11 


ERROR 


12 


ERROR 


13 


ERROR 


14 . 


ERROR 


15 


ERROR 


16 


ERROR 


17 


ERROR 


18 


ERROR 


19 


ERROR 


20 


ERROR 


21 


ERROR 


22 


ERROR 


23 


ERROR 


24 


ERROR 


25 


ERROR 


26 


ERROR 


27 


ERROR 


28 


ERROR 


29 


ERROR 


30 


ERROR 


31 


ERROR 


32 


ERROR 


33 


ERROR 


34 


ERROR 


35 


ERROR 


36 


ERROR 


37 


ERROR 


38 


ERROR 


39 


ERROR 


40 


ERROR 


41 


ERROR 


42 


ERROR 


43 



System overload caused character to be lost. 
Program too complex or too many variables. (GO- 
SUB, FOR, or user defined function calls are too 
deeply nested.) 

Missing or illegal operand or double operators. 
Missing operator before a left parenthesis. 
Missing or illegal number. 
Too many digits in number. 
No DEF for function call. 

Missing or mismatched parentheses or illegal dummy 
variable in DEF. 

Wrong number of arguments in DEF call. 
Illegal character in DEF expression. 
Missing or illegal variable. 

Single and double subscripted variables with the same 
name. 

Subscript out of range. 
No left parenthesis in function. 

Illegal user defined function — not FN followed by a 
letter and a left parenthesis. 

Mismatched parentheses or missing operator after 
right parenthesis. 
Syntax error in GOTO. 
Syntax error in RESTORE. 
Syntax error in GOSUB. 
Syntax error in ON. . . * -j fK . fa^rj fa . 

Syntax error in RETURN. WW^ Ver v 

RETURN without GOSUB. tfo* ({ 

Missing left parenthesis in TAB function. 

Syntax error in PRINT. 

An unavailable device was requested by the user. , 

Missing or illegal line number. 

Attempt to GOTO or GOSUB to a nonexistent line. 

Missing or illegal relation in IF. 

Syntax error in IF. 

Missing equal sign or improper variable left of the 

equal sign in LET or FOR. 

Subscripted index in FOR. 

Syntax error in FOR. 

FOR without NEXT. 

Syntax error in LET. 

Syntax error in NEXT 
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Table 5-3 (Cont). EduSystem 20 Error Messages 



Message Explanation 



ERROR 44 NEXT without FOR. 

ERROR 45 Too much data typed in or illegal character in DATA 

or the data typed. 
ERROR 46 Illegal character or function in INPUT or READ 
ERROR 47 Out of data. 
ERROR 48 Unrecognized command: RUN m ode. 

NOTE 

To correct the error indicated by the mes- 
sage, the appropriate line in the program 
must be corrected in the manner described 
in the Program Editing Section. 

PROGRAM EDITING 

There are two times when a program may require editing proce- 
dures. The first occurs while a line is being typed but before the 
RETURN key is pressed. The second occurs when a line has been 
completely typed and the RETURN key has been pressed. Each 
situation has its own editing procedures. 

Situation 1: Before the RETURN key is pressed. 

Three keys may be used to correct typing errors: <- (SHIFT/O), 
RUBOUT, or ALT MODE (or ESC) . 

<- (back arrow), SHIFT/O on the keyboard, or RUBOUT 
is used to delete a character from a line. BASIC prints the 
back arrow, deleting the last character from that line. More 
than one back arrow deletes more than one character, in re- 
verse order. 

ALT MODE (ESC on some Teletypes) is used to delete an 
entire line. When this key is used, BASIC prints $DELETED, 
erases that line from the program, and returns the carriage so 
that the line may be retyped. 

Situation 2: After the RETURN key is pressed. 

Once a line of the program has been transmitted to computer 
memory via the RETURN key, several methods of correction may 
be used. Lines may be inserted, deleted, or changed. 
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INSERTION 

To add a line to a program, assign a line number that falls be- 
tween two existing lines, type the line number and text, and press 
RETURN. 

DELETION 

To erase a line from computer memory, type the line number 
only and press the RETURN key. The DELETE command may 
also be used to erase lines from memory. To erase a single line, 
type DELETE and the line number and press RETURN. DELETE 
followed by two line numbers separated by a comma erases all lines 
between and including the two given. For example : 

DELETE 10,20 

erases lines 10 through 20. 

CHANGE 

Old instructions may be replaced by new ones by retyping the 
line. This procedure is adequate for changing simple lines. When, 
however, the line contains a complex formula or a long message to 
be printed, it may be changed with the EDIT command. The EDIT 
command allows the user to access a single line and search for the 
character or characters to be changed. To use this command, type: 

EDIT line number 

and press the RETURN key. BASIC waits for a search character 
to be typed (BASIC does not print this search character when it is 
typed). This search character is one that already exists on the line 
to be changed. After the search character is typed, BASIC prints 
out the contents of that line until the search character is printed. At 
this point, printing stops and the user has the following options: 

• Type in new characters; BASIC inserts them following the 
ones already printed. 

• Type a form feed (CTRL/L) to cause the search to pro- 
ceed to the next occurrence, if any, of the search character. 

• Type a bell (CTRL/G) to signal a change of search 
character, then type a new search character. 

• Use the RUBOUT or «- key to delete one character to the 
left each time the key is pressed. 
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• Type the RETURN key to terminate editing of the line at 
that point, deleting any text to the right. 

• Type the ALT MODE key to delete all the characters to 
the left except the line number. 

• Type the LINE FEED key to terminate editing of the line, 
saving the remaining characters. 

When the EDIT operation is complete, BASIC prints READY. 
Note that line numbers cannot be changed with the EDIT com- 
mand. 

The following example demonstrates the EDIT command. An 
incorrect line was typed: 

60 PRINT "PIr3. 14146 ABOUZ!" 
The line was edited as follows: 

EDIT 60 

PRINT "PI=3.14146*-«-59 AB0UZ«-T!" 

First 6 was entered as the search character. BASIC printed the line 
to the 6, and the RUBOUT key was typed twice to remove the two 
incorrect digits (46) and 59 was inserted in the line. CTRL/G was 
typed and another search character (%) was entered. BASIC 
printed characters to the % which was removed with a RUBOUT 
and replaced with a T. The LINE FEED key was typed to termi- 
nate the edit and save the remaining characters. If the line is listed, 
the following is printed on the Teletype. 

LIST 60 

60 PRINT W PI=3. 14159 ABOUT!" 
READY 

OPERATING INSTRUCTIONS 
Loading EduSystem 20 BASIC 

A paper tape labeled EDUSYSTEM 20 BASIC is provided with 
the system. This tape, called the system tape, must be loaded into 
computer memory when the system is installed. Once this system 
tape is loaded, it need not be reloaded. 
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The system tape may be loaded in one of two ways: with an 
automatic loader (hardware bootstrap) or with the Read-In Mode 
(RIM) loader program. The following loading instructions are for 
an EduSystem 20 that includes a hardware bootstrap. If the Edu- 
System 20 does not have a hardware bootstrap, see Appendix A for 
instructions on using the RIM loader. 

1. Turn the key lock on the computer console to POWER. 

2. Turn all Teletypes to LINE. 

3. Set all Teletype tape readers to FREE. 

4. Place the system tape (or configurator tape) in the appro- 
priate reader (high-speed or console Teletype) with the 
leader code (ASCII 200) over the reader head. 

5. Set the SWITCH REGISTER (SR) to 5356 (octal). 2 

6. Press and raise the HALT switch. 

7. Turn on the appropriate paper tape reader. 

8. Press and raise the SW switch. 

The system tape should begin to read in. If it does not, ensure 
that the correct tape is being used and repeat the above procedures. 
When the tape has read in, the message: 

EDUSYSTEM 2<3 BASIC 

prints on the console Teletype. If this message is not printed, the 
system tape did not read in correctly and the loading procedures 
must be repeated. 

When EDUSYSTEM 20 BASIC is printed, perform the fol- 
lowing: 

9. Remove the tape from the tape reader and turn the reader 
off. 

10. Answer BASIC'S initial dialog as explained below. 

Initial Dialog 

When BASIC has been loaded correctly and has printed the 
identification message (EDUSYSTEM 20 BASIC), it begins to ask 



2 An explanation of the octal, or base 8, number system is included in 
Introduction to Programming 1972. 
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certain questions which the user must answer. The first question, 
printed two lines below the identification message, is : 

NUMBER OF USERS (1 TO 8)? 

The user responds with a single digit from 1 to 8, depending on 
the number of Teletype terminals to be used. If the number of 
users is 1, BASIC asks whether the user has a high-speed reader 
or punch and concludes the dialog. In this case, the entire dialog 
might read as follows: 



NUMBER OF USERS (1 TO 8)?1 

DO YOU HAVE A HIGH SPEED PUNCH <Y OR N)?Y 
DO YOU HAVE A HIGH SPEED READER (Y OR N)?Y- 
IS THE ABOVE CORRECT (Y OR N)?Y 

If the number of users is more than 1, BASIC continues the dialog 
by asking: 



PDP-R/L COMPUTER (Y OR N)? 

If the EduSystem 20 computer is a PDP-8/L, respond Y. When 
the computer is not a PDP-8/L, respond N; a response of N to 
this question prompts the following dialog: 

STANDARD REMOTE TELETYPE CODES CY OR N)? 

Standard PT08 or KL8-E device codes are 40, 42, 44, 46, 50, 
52, and 54. When a system using PT08 or KL8-E interface units 
is first installed, determine the specific device code for each Tele- 
type and label each Teletype with its specific device code. If device 
codes are standard, enter Y for this question and BASIC assumes 
the standard device codes and continues the dialog. If device 
codes are not standard, enter N; BASIC then asks: 

TELETYPE #1 DEVICE CODE? 

BASIC asks this question for each Teletype to be used, up to seven 
times for an 8-user system. Respond with the specific 2-digit device 
code for each Teletype. 
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When the device codes have been determined, or if the com- 
puter is a PDP-8/L, the dialog continues as follows: 

DO YOU HAVE A HIGH SPEED PUNCH (Y OR N>? 

Respond Y if a high-speed paper tape punch is present, N if not; 
BASIC then asks: 

DO YOU HAVE A HIGH SPEED READER <Y OR.N)? 

Respond Y if a high-speed paper tape reader is present, N if not. 
If 1 was specified as the number of users, this question completes 
the BASIC dialog. However, for more than one user, BASIC asks 
the following question: 

SAME AMOUNT OF STORAGE FOR ALL USERS? N 

The above question requires the user to decide whether to parti- 
tion the available core equally among the users on the EduSystem 
20. If Y is the response, BASIC determines the size of the core 
memory on the system and divides it equally among the users and 
ends the dialog. If N is the response, BASIC determines the size 
of the core memory on the EduSystem 20, subtracts the amount 
used by EduSystem 20 software (4K), and prints the highest core 
field according to the following: 

Field 7 — 32K core memory 
Field 6 — 28K core memory 
Field 5- — 24K core memory 
Field 4— 20K core memory 
Field 3 — 16K core memory 
Field 2 — 12K core memory 
Field! — 8K core memory 

For explanation purposes, the following dialog is written for a 
12K, 8-user EduSystem 20. The system core is to be allocated as 
follows: 

User 1 — 9 blocks (user 1 is the console terminal) 
User 2 — 4 blocks 
User 3 — 3 blocks 
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User 4 — 4 blocks 
User 5 — 3 blocks 
User 6 — 3 blocks 
User 7 — 3 blocks 
User 8—3 blocks 



Each core field contains 16 blocks; a core field may be divided 
among several users, but no user may be allotted blocks in more 
than one core field. To determine the number of blocks, BASIC 



a 7 

prints the following, dialog and the user answers as, shown: . 

FI ELD 2 I [ JLYpW* (It* {&*.*- tfe-OLt WB. ^ ^Jff*-* #** *UA*1fcWl 

TUCOC ADC li Ul nrxtr- i r^^~ . „ . XL . . V. _ 



FIELD 2 \\ JLY J^O^ &*{€**- mat W (^^ ^H^ ™« -uii*VA ' ) 
THERE ARE 16 BLOCKS LEFT IW^THIS FIELD. 

YOUR ALLOCATION FOR USER follwiLL BE HOW MANY BL0CKS?9 
THERE ARE 07 BLOCKS LEFT IN*THIS FIELD. 

YOUR ALLOCATION FOR USER #2 WILL BE HOW MANY BLOCKS?* 
THERE ARE 03 BLOCKS LEFT IN THIS FIELD. 

YOUR ALLOCATION FOR USER #3 WILL BE HOW MANY BLOCKS?3 
FIELD 1 
THERE ARE 16 BLOCKS LEFT IN THIS FIELD. 

YOUR ALLOCATION FOR USER #4 WILL BE HOW MANY BLOCKS'?* 
THERE ARE 12 BLOCKS LEFT IN THIS FIELD. 

YOUR ALLOCATION FOR USER #5 WILL BE HOW MANY BLOCKS? 3 
THERE ARE 09 BLOCKS LEFT IN THIS FIELD. 

YOUR ALLOCATION FOR USER #6 WILL BE HOW MANY BLOCKS? 3 
THERE ARE 06 BLOCKS LEFT IN THIS FIELD. 

YOUR ALLOCATION FOR USER #7 WILL BE HOW MANY BL0CKS»3 
THERE ARE 03 BLOCKS LEFT IN THIS FIELD. 

YOUR ALLOCATION FOR USER #8 WILL BE HOW MANY BL0CKS73 

When an invalid response is made to any of BASIC'S questions, 
an error message is printed and the question is repeated. For ex- 
ample: 

STANDARD REMOTE TELETYPE CODES (Y OH N)?4 
INVALID RESPONSE 

STANDARD REMOTE TELETYPE CODES (Y OR N>? 

When all responses have been entered, BASIC asks: 

IS THE ABOVE CORRECT (Y OR N>? 

If an incorrect response was made, answer N and BASIC begins 
the dialog again. A response of Y ends the dialog and BASIC 
prints: 

END OF DIALOGUE 
READY 
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BASIC prints READY on each of the Teletypes associated with 
the specified device codes. EduSystem 20 is now ready to process 
BASIC programs. At this time, turn the key lock to PANEL 
LOCK and remove the key to prevent the system from being dis- 
turbed. 

System Reconfiguration 

The EduSystem 20 Configurator Tape is used to change the 
number of users, allocation of core fields, etc., without completely 
reloading the System tape. To use the Configurator tape, the system 
must be inactive, i.e., BASIC must not be running a program and 
no user typing. CTRL/C is typed to stop a running program or the 
listing of a program. To ensure that no one starts typing, turn all 
Teletypes to OFF. When the system is inactive, load the Config- 
urator Tape as explained under Loading the System. 3 

System Shutdown 

If power failure detection hardware is available on the system, 
simply turn the console key lock to OFF. Otherwise, to shut the 
system down, for overnight or any reason, ensure that the system is 
inactive, as explained above. Then press the HALT switch and turn 
the key lock to OFF. 

System Restart 

If power failure detection hardware is available on the system, 
simply turn the key lock to PANEL LOCK. Otherwise, perform the 
following procedures. 

1 . Turn the key lock to POWER. 

2. Set the SR to 0000 and press EXTD ADDR LOAD. 

3. Set the SR to 0200 and press ADDR LOAD. 

4. Press the CLEAR switch, then the CONT switch. 

5. Turn the appropriate Teletypes to LINE. 

6. Turn the key lock to PANEL LOCK. 

EduSystem 20 is now ready to process BASIC programs. 

Program Storing Procedures 

Once a program has been typed in correctly, it may be saved on 
paper tape so that it may be reloaded quickly. Programs may be 



3 If a program other than EduSystem 20 BASIC has been loaded into 
memory since the last use of BASIC, the system tape must be reloaded. 
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punched on the Teletype (TTY) or high-speed punch. To save the 
program, perform the following procedures. 

TELETYPE PAPER TAPE PUNCH 

1 .. Turn the TTY control knob to LINE. 

2. Type TAPE; press RETURN. 

3. Turn the TTY paper tape punch ON. 

4. Type LIST; press RETURN. 

5. When punching is complete, turn TTY punch OFF. 

6. Type KEY; press RETURN. 

HIGH-SPEED PUNCH } 

1. Turn the TTY control knob to LINE. 

2. Type PTP; press RETURN. 

3. Turn high-speed punch to ON. 

4. When punching is complete, turn punch OFF. 

5. Type KEY; press RETURN. 

Program Reloading Procedures 

Programs saved on paper tape may be reloaded using the Tele- 
type (TTY) or high-speed paper tape reader. To reload programs, 
perform the following procedures. 

TELETYPE PAPER TAPE READER 

1. Turn the TTY paper tape reader to FREE. 

2. Turn the TTY control knob to LINE. 

3. Insert tape in the reader. 

4. Type TAPE; press RETURN. 

5. Turn the TTY reader to START. 

6. When the tape has read in, turn the TTY reader to FREE. 

7. Type KEY; press RETURN. 

HIGH-SPEED READER 

1. Turn the high-speed reader to ON. 

2. Turn the TTY control knob to LINE. 

3. Insert tape in the reader. 

4. Type PTR; press RETURN. 

5. When the tape has read in, turn the high-speed reader OFF. 

6. Type KEY; press RETURN. 
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edusystem 25 



INTRODUCTION 

EduSystem 25 is a multi-user system for up to eight persons 
using an extended BASIC language called BASIC-E; frra'Tiffie- 
shairtag~em4F©iHnentngtsers can store programs and data on DEC- 
tapetor the RK8-E disk^T^reatly reducing the time involved in 
loading and punching paper tape and making available more access 
time to a greater number of students. The system operates in either 
immediate or programmable mode and allows multiple statements 
per line for more efficient coding. In addition, extended BASIC 
features enable the use of alphanumeric strings, program chaining, 
and numerous other extensions to Dartmouth standard BASIC. 

EduSystem 25 also allows a maximum of 5 persons at a time 
to use the FOCAL language, though not simultaneously with 
BASIC-E. >Aad ^w hen operated as a one-user system, EduSystem 
25 runs FORTRAN, assembly language, and all of the OS/ 8 
utility programs. (OS/8 is the operating system for the PDP-8.) 

System Components 

EduSystem 25 is composed of a PDP-8/E computer with 12,288 
(12K) words of core memory, powerfail protection, automatic 
loader (hardware bootstrap), DECtape, and up to five terminals 
with their associated interfacing. Each standard EduSystem 25 in- 
cludes the BASIC-E language processor on DECtape, a library of 
sample programs, textbooks, and curriculum guides. An additional 
4096 (4K) words of core memory enable EduSystem 25 to handle 
up to three more terminals (using BASIC-E) for a total of eight. 1 
Additional core memory (up to 32K) can be added to provide 
larger user program areas. The system can support an RK8E Disk 
and TD8-E DECtapt^v}^^I^^^£l^:^ IT 



1 Version 1 of EduSystem 25 supports only 5 users. ..^ „ 7 n ~f~" i 
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System Expansion 

EduSystem 25 grows to EduSystem 45 2 with the addition of an 
optical card reader and an EduSystem 30 software kit. To expand 
EduSystem 25 to an eight-user EduSystem 50 time-sharing system, 
add RF/RS08 DECdisk, 4096 (4K) words of core memory, and 
the necessary terminals. 

BASIC LANGUAGE CAPABILITIES 

EduSystem 25 includes all the standard elements of BASIC as 
explained in Chapter 1. Tables 6-1 and 6-2 summarize the Edu- 
System 25 BASIC-E language capabilities. The system also includes 
some additional features not discussed in Chapter 1. These addi- 
tional features are discussed below. 

Abbreviated Commands 

All commands and statement keywords can be abbreviated to 
the first three letters, as shown in Table 6-1. 

Multiple Statements Per Line 

EduSystem 25 allows more than one statement to be typed on a 
single line. Subsequent statements begin with a backslash character 
(\), which is SHIFT/L on the keyboard. A program is often more 
understandable when statements are grouped together on the same 
line. The following are examples of multiple statements per line. :5 



10 FOR 1=1 TO 10\PRINT I, SQR( I >\NEXT I 

10 PRINT "WHAT IS YOUR NUMBER"; \ INPUT X 
20 PRINT "THE SQUARE ROOT IS"; SQR(. 
30 PRINTNGOTO 10 




The only restriction to tb^^e-of multiple statements per line 
is that when a NEXT o^OSUB^sfatement is used it must be the 
last statement on the hfteH§mce the EduSystem 25 memory is 
shared by several users, this multiple-statement capability is help- 
ful when writing long programs. Statements require less storage 
when they are grouped on a single line. 



2 EduSystem 45 is a combination of EduSystems 25 and 30, capable of run- 
ning in either batch or multi-user mode. 

3 Notice that EduSystem 25 does not require the END statement. 
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Immediate Mode 

EduSystem 25 allows most BASIC statements to be used in 
immediate mode, that is, to be issued and executed immediately 
without being included in a formal program. Nearly all BASIC 
statements can be executed in immediate mode. This is an excellent 
way to introduce students, to the BASIC language, as the state- 
ments can be used and understood individually before the student 
begins programming. 

For example, the statement: 

PRINT 2*5+SQR<7.8314> 

followed by the RETURN key, causes the problem solution to be 
printed immediately. BASIC then prints READY to indicate that 
another immediate mode statement or a program may be entered. 
Immediate mode statements are not stored in computer memory. 
Typing multiple statements per) line is especially useful in<5htr 
immediate mode. A table of raffcfom numbers could, for example, 
be generated by typing the following single line and pressing 
RETURN: 



FOR D»l TO 20\PRINT RNDC0)>\NEXT D 

.2431684 .2988412 .7295008 .3125257 .3095865 

.04493979 .4834217 .4961024 .5010026 .04103271 

.2373254 .3046887 .1923863 .9121199 .241212 

.9882844 .2587987 .03323189 .8701425 .9218898 



Immediate mode statements can also be used with programs. 
For example, an immediate GOTO statement may be used to start 
a program at some point other than the beginning. This is accom- 
plished by loading the program into computer memory and typing, 
for example: 

After the RETURN key is pressed, the program execution begins 
automatically at line number 75. In this case, the RUN command 
need not be typed. This immediate GOTO command is especially 
helpful in debugging by halting a running program, examining the 
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values of variables (and possibly changing them), and then restart- 
ing the program at any point. 

INPUT Statement 

The INPUT statement described in Chapter 1 allows a number, 
or numbers, to be entered from the Teletype as values for variables. 
EduSystem 25 allows the user to respond to the INPUT query (?) 
with a value or mathematical expression. An expression may con- 
tain one or more arithmetic operations and may use any BASIC 
function. This capability could be used to enable one program to 
solve more than one problem. For example, the statement: 

100 INPUT X 

could be answered with any of the following values or expressions: 

?7*SQRC495> „ ^A^ ^ \ 

As explained in Chapter 1, the INPUT statement may have 
multiple inputs. These inputs may be either mathematical expres- 
sions or numeric values. For example, the statement: 

10 INPUT a»b«c 

could be answered as follows : 

?48,48f 5,SQR(48> 

Comments 

Previously, the use of the REMARK (or REM) statement to 
introduce a comment on a single line was discussed. Comments 
may also be appended to any line by starting the comment with a 
single apostrophe ('). All characters typed after the apostrophe 
are ignored when the program is executed. For example: 

10 LET X=4 'SET X TO ITS INITIAL VALUE 
20 GOTO 10 'LOOP BACK TO START 
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When responding to an INPUT statement, the user may add a 
comment which prints on the terminal but has no effect on the 
running program. For example: 



10 input x 

20 PRINT X 
RUN 

? 2 'LET X BE 2 
2 

READY 



IF THEN Statement 

The IF THEN statement described in Chapter 1 is used to trans- 
fer conditionally from the normal order of program execution. For 
example: 

25 IF A<»B THEN 100 

transfers control to line 100 if A is less than or equal to B. If A 
is greater than B, control transfers to the line following line 25. 
BASIC-E uses the IF THEN statement in this way to change the 
order of program execution. It also allows THEN to be followed 
by an executable BASIC statement. This statement is executed 
only if the IF rela tion is true; otherwise control passes to the next 
(separate statementTFor example: 

50 IF 2+2=4 THEN LET A=7\PRINT A 

Since the statement (2+2=4) is true, BASIC prints 7. The next 
statement executed is the one following line 50. IF THEN used 
in this manner does not change the order of program execution. 

The IF THEN statement can also be used to transfer control to 
a subroutine. For example: 

25 IF A+B=C THEN GOSUB 100 

If A+B equals C, control is transferred to the subroutine at line 
100. Otherwise, the next statement executed is the one following 
line 25. 
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ON-GOTO Statement 

The ON-GOTO statement permits the program to transfer 
control to one of a set of lines depending on the value of a formula. 
The statement is of the form: 

line number ON formula GOTO line number, line number. . . 

The formula is evaluated and then truncated to an integer. This 
integer is used as an index to tell which of the line numbers re- 
ceives control. If the integer value of the formula, is 1, the first 
line number is used; if the value is 2, then the second is used; etc. 
Obviously, the formula after truncation cannot be zero or negative 
or greater than the number of line numbers in the list. For example: 



10 ON X+2 GOTO 100*200*300*400 

If X is 2, then control passes to line 400. The allowable range of 
X in this example is — 1 to 2, so that the range of the formula 
value is 1 to 4. 

ON GOSUB Statement 

The GOSUB and RETURN statements are used to allow the 
user to transfer control to a subroutine and return from that sub- 
routine to the normal course of program execution (see Chapter 1 ) . 
The ON GOSUB statement is used in the same manner as the 
ON GOTO statement described previously. The statement is of 
the form: - 

line number ON formula GOSUB line number, line number. . . 

The formula is evaluated and then truncated to an integer. De- 
pending on the value of the integer, control is transferred to the 
subroutine which begins at one of the line numbers listed. When 
the RETURN statement is encountered, control transfers to the 
line following the 'ON GOSUB statement. For example: 



50 ON X GOSUB 200*300*400 

If X is 1, 2, or 3, control transfers to line 200, 300, or 400, re- 
spectively. If X is not equal to 1, 2, or 3, line 50 is ignored. 
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RANDOMIZE Statement 

The random number (RND) function produces a random num- 
ber between and 1, as described in Chapter 1. A given program 
using the RND function produces the same random numbers each 
time it is run. If the user wants the random number generator to 
calculate different random numbers every time the program is run, 
EduSystem 25 BASIC provides the RANDOMIZE statement. 
RANDOMIZE is normally placed at the beginning of a program 
which uses the RND function. When the program is executed, 
RANDOMIZE causes the RND function to choose a random start- 
ing value so that the same program gives different results each 
time it is run. For example: 

10 RANDOMIZE 
20 PRINT RND<0) 

prints a different number each time it is run. For this reason, it is 
good practice to debug (detect, locate, and correct mistakes) a 
program completely before inserting the RANDOMIZE statement. 
To demonstrate the effect of the RANDOMIZE statement on 
two runs of the same program, the RANDOMIZE statement was 
inserted as line 15 below: 

15 RANDOM 

20 FOR 1=1 TO 5 

25 PRINT "VALUE" I "IS" RND<0> 

30 NEXT I 

RUN 

VALUE 1 IS .3808637 

VALUE 2 IS .71 19271 

VALUE 3 IS .9687586 

VALUE 4 IS .03029916 

VALUE 5 IS .4629068 

READY 

RUN 

VALUE 1 IS .8916059 

VALUE 2 IS .2441537 

VALUE 3 IS .3154383 

VALUE 4 IS .07033823 

VALUE 5 IS .583024 



READY 
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Truncation Function (FIX) 

EduSystem 25 BASIC includes all the functions discussed in 
Chapter 1 (see Table 6-2). In addition, EduSystem 25 includes the 
truncation function (FIX) which returns the integer part of the 
function argument. For example: 

PRI FIX<82+100.6775/ 
182 

PRI FIXCS0RC85. 54621)) 
9 

Notice that FIX is like INT for positive arguments. In fact, FIX 
could be defined as: 

FIX(X)=SGN(X)*INT(ABS(X)) 

EXTENDED SYSTEM CAPABILITIES 

In addition to the BASIC language features previously dis- 
cussed, EduSystem 25 has several extended features that allow the 
user to write longer, more complex programs. These features in- 
clude the ability to store programs on DECtape, create and manipu- 
late data files on DECtape, and link program segments together 
to allow longer user programs. Another extended capability allows 
character strings to be input, manipulated, compared, and output. 
These extended features are discussed below. 

String Variables 

EduSystem 25 BASIC has the ability to manipulate alpha- 
numeric information (commonly called strings). A string is a 
sequence of six or fewer printing ASCII characters (see Appendix 
B). If a string contains more than six characters, only the first six 
are retained. A string variable is signified by one letter followed 
by the dollar sign ($) character and, optionally, by one or two 
subscripts. The following are all acceptable string variables: 

A$ 

B$(l) 

C$(2,5) 

READING STRING DATA 

Strings of characters may be read into string variables from 
DATA statements. Each string data element is composed of one 
to six characters enclosed in quotation marks. The quotation marks 
are not part of the actual strings. For example: 

fin* a. data r , y# yshrry, 



10 READ A$,B$,C$ 

20 DATA "JONES"., "5*11™".," TAYLOR" 

The string JONES is read into A$, SMITH into B$, and TAYLOR 
into C$. If the string contains more than six characters, excess 
characters are ignored. 

PRINTING STRINGS 

The normal PRINT statement may be used to print string in- 
formation. If a semicolon is used to separate string variables in a 
PRINT command, the strings are printed with no intervening 
spaces. For example, the program: 

10 READ AS/BSsCS 

20 print c$;b$;a$ 

30 data "ing , v"shar","time-" 

RUN 



— r 



causes the following to print : 

10 READ ASsBSsCS 

20 print c$;b$a$ deleted 



^7 




L 



i 



! 



7\ <2C*^ \ J 

10 read a$*b$/cs \, \9 / 

20 print c$jb$;c$ deleted '""~~-~.. -....,.--- 

READY 

INPUTTING STRINGS 

String information may be entered into a BASIC program by 
means of the INPUT command. Strings typed at the keyboard 
may contain any of the standard BASIC characters except back 
arrow ( <-) and quotation mark. Back arrow, as always, is used to 
delete the last character typed. Commas are used to separate string 
variables, as with numeric data. If a string contains a. comma, the 
entire string must be enclosed in quotation marks. The following 
program demonstrates string input: 



10 INPUT AS»8S*CS 

20 PRINT A$*B$*C$ 

RUN 

? JONES, SMITH* TAYLOR 

JONES SMITH TAYLOR 

READY 
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Strings and numeric information may be combined in the same 
INPUT statement as in the following example. Note that if an 
input string contains more than six characters, only the first six are 
retained. 

10 INPUT A,A$*B$ 

20 PRINT ASjBSj-A 

RUN 

? 1754, MA YNARD, MASS. 

MAYNAR MASS. 1754 

READY 



The numeric variable A is set to 1754 (leading zeroes are not 
printed). The string MAYNAR is put in the string variable A$, 
and the string MASS. is put into the string variable B$. 

LINE INPUT 

Strings of more than six characters may be entered by means of 
the LINPUT (line input) statement. A LINPUT statement is fol- 
lowed by one non-subscripted variable, e.g., A$. The following 
program illustrates the use of the LINPUT statement: 



10 


LINPUT 


AS 






20 


Z=»AJ<0> 








30 


FOR I»l 


TO 


INTCZ/6+. 


.9) 


40 


PRINT A$<I) 


* 




50 


NEXT I 








60 


PRINT 









RUN 

? MAYNARD, MASS. 01754 
MAYNARD, MASS. 01754 

READY 

This program inputs the entire line of type from the terminal and 
stores the characters so that the values of the string variables are, 
effectively: 

A$(l) = MAYNAR 

A$(2)=D,MAS 

A$(3)=S. 01 

A$(4) = 754 

A$(0) = total number of characters stored 

Commas and quotation marks are treated as ordinary characters 
and, hence, are stored in the string variables. LINPUT accepts a 
line of characters up to a carriage return. 
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WORKING WITH STRINGS 

Strings may be used in both LET and IF THEN statements. For 
example: 



10 LET YS="YES" 

80 IF B$<DS THEN PRINT "WHOOPEE" 



The first statement stores the string YES in the string variable Y$. 
The second prints WHOOPEE if B$ is less than (alphabetically 
prior) to D$. If B$ = "TED" and D$ = "MARY", the expression 
B$<D$ is false and the PRINT statement is not executed. For two 
strings to be equal, they must contain the same characters, in the 
same order, and be the same length. In particular, trailing spaces 
are significant as they change the length of the string. "YES" is 
not equal to "YES ". 

The relational operators <, >, >=, <=, <> are used with string 
variables to represent alphabetic order; they could be used to al- 
phabetize a list of strings. The arithmetic operations (+, -, *, /, t) 
are not defined for strings. Thus, statements such as LET A$ = 3*5 
and LET C$ = A$+B$ have no meaning and should never be used 
in a BASIC program. Such statements do not cause an error mes- 
sage to be printed; however, the results of such operations are 
undefined. 

STRING FUNCTIONS 

EduSystem 25 BASIC contains several functions for use with 
character strings. These functions allow the program to access part 
of a string (MID), generate a numeric string or value (CHR$), 
determine the number of characters in a string (LEN), and link 
two strings together (CAT). 

CHR$ Function 

Occasionally, it is desirable to type a character other than the 
printing ASCII set (see Appendix B) or to convert ASCII char- 
acter codes to their respective characters. A special PRINT state- 
ment function, CHR$, is used for this purpose. This function 
takes as its argument a single constant or variable and prints the 
single character whose character code corresponds to that value. 
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For example: / 



10 for 1=0 to 9 

20 PRINT CHRSCI+48); 

30 NEXT I 

RUN 

0123456789 

READY 



This program, prints "0123456789" because 48 to 57 are the ASCII 
values for the characters through 9. The following special char- 
acters can also be printed using the CHR$ function: 

Bell CHR$(7) 

Linefeed CHR$(10) 

Carriage return CHR$(13) 

Quote (") CHR$(34) 

Back arrow (<-) CHR$(95) 

Formfeed CHR$(12) 

For each ASCII character there is a second acceptable form of 
CHR$ function. The second code is obtained by adding 128 to the 
ASCII code given in Appendix B. For example, both CHR$(65) 
and CHR$(193) cause the character A to be output. 

MID Function 

The MID function is used to obtain a portion of a character 
string. The format of this function is: 

MID(A$,M,N) 

BASIC accesses the characters in the string variable A$ and 
returns N characters, beginning with position M. Characters in a 
string are numbered 1 through 6. Consider the following example: 



10 LET A$»"UVVXYZ" 
20 PRINT M1D(A$*3*3) 
RUN 
WXY 

READY 
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LEN Function 

The LEN function returns the number of characters in the string 
argument. Characters in a string are numbered through 6. For 
example: 

10 RS»"RANDOM" 
20 PRINT LEN(R$) 
RUN 
6 

READY 

CAT Function 

The CAT function returns a string of characters which are the 
result of the concatenation (linking) of two other character strings. 
A maximum of six characters can be returned by the CAT func- 
tion; if the first string to be linked contains six characters, only 
those six characters are returned. For example: 

10 AS-'^iaS^S'^BSs'^TSQ^" 

20 PRINT CAT<A$,B$> 

RUN 

012345 

READY 

If the first string contains less than six characters, they are linked 
as shown in the following program. 

10 A$» ,, EDU ,, \B$ = ,, -25 M 
20 PRINT CAT (AS, 8$) 
RUN 
EDU-25 

READY 

Program * Storage/ Retrieval 

EduSystem 25 allows the system DECtape to be used for per- 
manent on-line program storage. Programs stored in this way may 
be loaded instantly without handling a paper tape or typing a 
lengthy program. 
STORING USER PROGRAMS 

User written programs may be stored on DECtape. Each pro- 
gram to be saved must have an assigned name, entered at the be- 
ginning of the programming session. The NEW command is given 
to clear any existing program and define the name of the new pro- 
gram to be entered. To use the NEW command, the user types: 
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NEW 

and presses RETURN. The system then asks for: 

NAME-- 

The user then types any name of 1 to 6 characters (the first of 
which must be alphabetic) and presses RETURN. BASIC assigns 
that name to the program to be entered. The user may change the 
name of the program at any time by typing the RENAME com- 
mand. BASIC again asks for NAME — and assigns the new name 
to the program being entered. RENAME does not delete the exist- 
ing program as does NEW. 

Once a program has been named and typed correctly, it may be 
stored on DECtape with the SAVE command. Any existing pro- 
gram stored under the same name is deleted when a SAVE com- 
mand is issued. Thus all stored programs have unique names which 
may be used to recall them in the future. To store a program, the 
user, having named and entered a program, types: 

SAVE 

and presses RETURN. BASIC stores the program on DECtape 
under the name specified with an extension identifying the user 
terminal from which the program was saved. For example, a pro- 
gram named ALPHA that is saved from terminal .E2 (see Starting 
EduSystem 25) is stored as ALPHA .E2. Extensions protect the 
programs from access by other terminals, i.e., terminal .El can- 
not access a program stored by terminal .E2. 

When the program has been stored, BASIC prints READY. At 
this time, the program still resides in computer memory; storing 
does not erase computer memory. A NEW or SCR command must 
be typed to erase the program from memory after it has been 
stored on DECtape. 

RETRIEVING USER PROGRAMS 

User programs stored on DECtape are brought into memory 
with the OLD command. Only programs stored from the same 
user terminal can be retrieved at that terminal. When recalling a 
program with the OLD command, the user must give exactly the 
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same name as was used when the program was stored. To use the 
OLD command, the user types: 



OLD 

and presses the RETURN key. The system then asks for NAME — . 
The user can also use the OLD command and the program name 
(e.g., ALPHA) on the same line as follows: 

OLD ALPHA 

BASIC brings the stored program into memory but does not 
erase the program from DECtape. If the user wishes to modify the 
program, he can make the necessary modifications, then issue an- 
other SAVE command. This procedure replaces the original stored 
program on DECtape with the modified version of the same name. 

The user can obtain a listing of all programs stored from his 
terminal by using the CATALOG command. CATALOG, like 
all other program storage/retrieval commands, is an immediate 
command. It is used by typing CATALOG and pressing RE- 
TURN. BASIC immediately prints a listing, without extensions, 
of all programs stored by the terminal from which the CATALOG 
command was issued. 

RUNNING VERY LONG PROGRAMS 

EduSystem 25 accommodates BASIC programs up to 250 lines 
long. If a program is any longer, it may be necessary to break it 
into several segments. A program that has been broken into more 
than one piece is called a chained program. 

Each part of a chained program is saved on DECtape as a sep- 
arate program, complete with name and system-assigned extension. 
The last statement of each part to be executed is a CHAIN state- 
ment specifying the name of the next 'section of the program. For 
example, a program named ALPHA is segmented into three parts: 
ALPHA, BETA, and GAMMA. ALPHA is loaded with the OLD 
command. 

250 CHAIN "BETA" 
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The last statement in ALPHA is a CHAIN statement, 
or 

250 CHAIN B$ 

The string variable (B$) may be used if the segment name was 
previously assigned to it, for example: 

848 BS="BETA" 

When this CHAIN statement is reached, the BETA segment of the 
program is loaded and executed. The BETA segment then chains 
to the next (GAMMA) segment of the program with a statement 
such as: 

399 CHAIN "GAMMA" 

Each separate part of the program links automatically to the next 
part of the program. 

The CHAIN command may also be used to branch to a stored 
program from a working program. For example : 

10 INPUT "WHAT LESSON DO YOU WANT" A$ 

20 CHAIN A$ 

RUN 

WHAT LESSON DO YOU WANT? DELTA 



would cause BASIC to retrieve, load, and execute the program 
named DELTA. 

DELETING STORED PROGRAMS 

The UNSAVE command is used to delete a program already 
stored. UNSAVE must either be preceded by a NEW, OLD, or 
RENAME command which specifies the name of the program to 
be deleted or the command must be typed as: 

UNSAVE ALPHA 

specifying the name (e.g., ALPHA) of the program, on DECtape, 
to be deleted. The user must use exactly the same name used when 
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the program was stored. Only programs which were saved from 
the terminal being used may be deleted by a user at that terminal, 
e.g., a user at terminal .El may delete only those programs stored 
with an extension of .El. (These are programs listed in response 
to the CATALOG command.) 

USING PUBLIC LIBRARY PROGRAMS 

Programs stored by the System Manager with the extension 
.E8 may be accessed by all users. These programs are collectively 
called the public library. To obtain a listing of the available public 
library programs, the user types: 



CATS 



and presses the RETURN key. A listing of the public library pro- 
grams is printed. A sample listing is shown below: 



ROCKET 

LUNAR 

POLUTE 

ELECT 

SNOOPY 

GAMBLE 

READY 



The user can access any program in the public library by typing 
OLD$ and the desired program name. For example, the user types: 

OLDS SNOOPY 

The library program SNOOPY is loaded into memory and the 
system prints READY. The user can then execute SNOOPY by 
typing RUN or, if desired, can obtain a listing of SNOOPY by 
typing LIST. User may access the public library but cannot SAVE 
or UNSAVE the library programs. These programs are protected 
by the .E8 extension. 

The user can also access public library programs by chaining to 
them from a program. For example, the user can access the public 
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library program ELECT by including the following statement in his 
program: 

55 CHAINS "ELECT" 

or by including the following statements: 



50 ES="ELECT" 
55 CHAINS ES 



Data File Storage/Retrieval 

Just as some programs may be too large to be executed as a 
single program, other programs may need to store and use more 
data than may be contained in DATA statements within the pro- 
gram. If this is the case, data may be stored on DECtape. Data 
stored in this way is called a data file. 

EduSystem 25 allows users to read and write DECtape data 
files. These data files may contain numeric or string data. Data files 
are the perfect way to test student programs. The instructor may 
create a data file which all student programs must use and then 
answers may be stored in another file which may be checked 
automatically. 

Data files are stored automatically by EduSystem 25 on the 
DECtape mounted on DECtape driye 1 . Data files are stored with 
an extension similar in principle to that previously discussed for 
programs. Terminal .El data files have the extension .Dl, .E2 
data files use .D2, etc. The system manager's extension (.E8) 
uses .D8 data files. Normally, .D8 files can only be read; users 
are limited to reading only by placing DECtape drive 1 on WRITE 
LOCK. 

CREATING DATA FILES 

When the user desires to store data on DECtape, he must create 
a data file, or use an existing data file. Data files are created with 
the OPEN FOR OUTPUT command. For example, the user wishes 
to create a data file named DATA10 (date file names, like pro- 
gram file names, can be 1 to 6 characters long, the first character 
of which must be alphabetic). The data file name can be used in 
the OPEN statement or a string variable can represent it. A data 
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file would be created when the following statement was executed 
in a program: 

10 OPEN "DATA10" FOR OUTPUT* 12 

The data file name must be enclosed in quotation marks. This state- 
ment could also be coded as: 

10 OPEN AS FOR OUTPUT* 12 



if A$ has been set equal to DATA10. The 12 at the end of the 
statement indicates that 12 blocks are to be reserved for this file. 
Any number of blocks up to 64 may be reserved in this manner. 
If no blocks are reserved in the OPEN FOR OUTPUT statement, 
the system assumes that the file is to be 10 blocks long. 

When the data file has been created, or reopened, the user may 
write data into the file with the PRINT # statement. This state- 
ment may contain either numeric or string data separated by 
commas or semicolons. For example, a single data item can be 
entered by typing the following: 



20 PRINT #* 248 

This statement writes 248 and a carriage return/line feed onto a 
data file that has been opened for output. Several data items may 
be included in a PRINT # statement, with commas printed as 
separators between data items on each line of the output file. The 
commas must be enclosed in quotation marks to have them print 
on the output file. For example: 

20 PRINT** 1*2*3*4*5 

writes each of the above items on the data file as separate data 
items as follows: 1, 2, 3, 4, 5 and a carriage return/line feed 
exactly as the items would be input from the terminal. 
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Character strings are used in the PRINT # statement in the 
same manner, for example: 

25 A*=* ,, JONES ,, \B$ = "SMITH ,, \C$ = "TAYLOR" 
30 PRINTS AS* B£,CS 

would write three separate character strings onto the DECtape as 
follows: JONES, SMITH, TAYLOR and a carriage return/line 
feed. Writing PRINT # statements with multiple operands (data 
items) saves space on the DECtape data file because fewer car- 
riage return/line feeds need to be stored. 

When all data has been entered with PRINT # statements, the 
output file should be closed with the CLOSE statement. Since 
EduSystem 25 allows only one output file to be opened at a time, 
the CLOSE statement is used to close the output file. For example : 

30 CLOSE 

READING DATA FILES 

When the user wishes to use data stored on DECtape data files, 
he opens a previously created file with the OPEN FOR INPUT 
statement. If, for example, the user wishes to read data stored in 
a file named DATA 10, he can reference this name in the OPEN 
statement or use a string variable to represent . it. The data file 
would be opened when the following statement was executed in 
a program: 

40 OPEN "DATA10" FOR INPUT 

The data file name must be enclosed in quotation marks. The above 
statement could also be coded as: 

35 B$="DATA10" 

40 OPEN B$ FOR INPUT 

When the data file has been opened for input, the user may read 
data from the file with the INPUT # statement. The INPUT # 
statement searches the file for a carriage return/line feed char- 
acter and inputs the next data item, or items. This statement may 
contain either alphabetic or string variables separated by commas 
or semicolons. For example, the statement: 

50 INPUT ♦jAj.B.tCDjE 
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searches for a carriage return/line feed character and inputs the 
next five separate data items (separated by either a comma, a 
semicolon, or a carriage return/line feed) from a data file. 

The following program uses the examples in this section to 
demonstrate data file usage : 



10 X£="DATA10" 






15 OPEN X$ FOR OUTPUT* 


12 




20 PRINT*, 1,2,3,4,5 






25 A$ = ,, JONES M \8$ = "SMITH"\C$ = 


"TAYLOR" 


30 PRINT#,A$,B$,C£ 






35 CLOSE 






40 OPEN X$ FOR INPUT 






50 INPUT#,A,B,C,D,E 






55 INPUT#,A$,B$,C$ 






60 PRINT 






65 PRINT A,B,C,D,E 






70 PRINT 






75 PRINT AS,B$,CS 






RUN 






1 2 




3 


JONES SMITH 




TAYLOR 



LISTING DATA FILES 

The user can obtain a listing of the data files for his terminal 
by typing the FILELOG command. This immediate mode com- 
mand is typed as : 



FILELOG 

or 

FIL 



and produces a listing of the data file names without extensions. 
For example: 



FILELOG 
DATA 1 
NUMBER 
CIRCLE 
TIMER 

READY 
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ERASING DATA FILES 

Data files can be deleted from DECtape with the KILL com- 
mand. If, for example, the user wishes to erase a file named 
DATA 10, he types: 

KILL DATA 10 

when the RETURN key is pressed, BASIC deletes DATA10 from 
the data file and prints READY. The KILL command and the file 
name must be separated by a space. This command deletes only 
those data files entered from the same terminal, i.e., with the same 
extension. 

USING PUBLIC DATA FILES 

Data files stored by the System Manager with the extension .D8 
may be accessed by all users. To obtain a listing of the available 
public data files, the user types: 

FILELOGS 
FILS 

and presses the RETURN key. A listing of the public data files is 
printed. A sample listing is shown below: 

FIL$ 

TEST01 

TEST02 

DATA50 

DATA55 

DATA60 

The user can use the data in any public data file by opening the 
file for input. For example, to use the data in a public file named 
DATA55, the user types : 

90 OPENS "DATA55" FOR INPUT 

Included in a program, the above statement would make the data 
in DATA55 available to the user program. The user can manipu- 
late this data in his program but cannot change the data file in any 
way. Public data files are protected by the .D8 extension. 

6-22 



Table 6-1. EduSystem 25 BASIC Statement Summary 



Command (Abbreviation) 



Explanation 



Input/Output Statements 
LET 

READ(REA) 

PRINT(PRI) 

DATA(DAT) 

RESTORE(RES) 

INPUT(INP) 

LINPUT(LIN) 

GOTO(GOT) 

IF THEN(IF THE) 



FOR TO STEP(FOR TO STE) 

NEXT(NEX) 

GOSUB(GOS) 

RETURN(RET) 

ON GOTO(ON GOT) 



ON GOSUB(ON GOS) 



REMARK(REM or ') 
RANDOMIZE(RAN or RANDOM) 



DEF FN 

STOP(STO) 

END 



Editing/Control Commands 

LIST(LIS) 
LIST n(LIS n) 



Assign a value to a variable. 
The word LET is optional. 
Assign values from data list to 
variables. 

Print out the indicated infor- 
mation on the Teletype. 
Provide data for a program. 
Restore the data list. 
Get values or expressions from 
the Teletype. 

Get long character string from 
the Teletype. 

Change order or program ex- 
ecution. 

Conditionally perform speci- 
fied operation or conditionally 
change order of program ex- 
ecution. 

Set up a program loop. 
End of program loop. 
Go to a subroutine. 
Return from a subroutine. 
Conditionally change order of 
program execution according 
to evaluation of formula con- 
tained in statement. 
Conditionally go to a subrou- 
tine according to evaluation of 
formula contained in statement. 
Insert a program comment. 
Cause RND function to ran- 
domly select new sequence of 
random numbers between 
and 1. 

Define a function. 
Stop program execution. 
End a program (not required 
with EduSystem 25). 



List entire program in memory. 
List line n. 
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Table 6-1 (Cont.). EduSystem 25 BASIC Statement Summary 



Command (Abbreviation) 



Explanation 



LIST n,m(LIS n,m) 

DELETE n(DEL n) 
DELETE n,m(DEL n,m) 

EDIT n(EDI n) 

KEY 
RUN 
'SCRATCH(SCR) 

BYE 
TAPE(TAP) 



CTRL/C 



SAVE 



CHAIN A$ 



CHAINS A$ 
OLD 

€nsave 



List lines n through m inclu- 
sive. 

Delete line n. 

Delete lines n through m in- 
clusive. 

Search line n for the character 
typed. 

Return to KEY (normal) mode. 
Execute the current program. 
Erase the current program 
from memory. 
Same as SCRATCH. 
Read a program from the Tele- 
type paper tape reader or 
punch a program on the Tele- 
type paper tape punch. 
Stop a running program, print 
STOP, and then READY. 



Program Storage/Retrieval Commands 

'NEW 

'RENAME(REN) 



Clear memory, request program 
name. 

Change the name of the pro- 
gram currently in core mem- 
ory. 

Store program in memory on 
DECtape, using the name spe- 
cified by NEW, RENAME, or 
OLD and an extension deter- 
mined by the user's terminal. 
Erase memory, retrieve, load 
and begin execution of the 
stored program named in A$. 
Used to segment a large pro- 
gram into workable sections. 
Chain to public library pro- 
grams. 

Clear memory, request pro- 
gram name, bring named pro- 
gram to memory from DEC- 
tape. 

Delete from DECtape the pro- 
gram named in most recent 



6-24 



Table 6-1 (Cont.). EduSystem 25 BASIC Statement Summary 



Command (Abbreviation) 



Explanation 



CATALOG(CAT) 



'CAT$ 
OLD$ 



Data File Commands 

OPEN A$ FOR OUTPUT,X 



OPEN B$ FOR INPUT 



OPENS B$ FOR INPUT 
INPUT # 



PRINT # 

CLOSE 
FILELOG(FIL) 

FILELOG$(FIL$) 

KILL A$ 



NEW, RENAME, or OLD 

command. 

List names of stored programs 

for this user (extensions are 

not printed). 

List public library programs. 

Request public library program 

name, bring named program to 

memory from DECtape. 



Create a DECtape file named 
by A$. If the file already ex- 
ists on DECtape, this command 
reopens it. X determines the 
number of blocks reserved for 
this file. It may be any integer 
up to 64. If no X is entered, 
10 is assumed. 

Open the existing file named 
by B$. If no such file exists, 
-f) . an error message is printed. 
Open a .EQ/file named by A$. 
Read variables (numeric and/ 
or string) from the input file 
previously opened. 
Write data (numeric and/ 
or string) onto the output file 
previously opened. 
Close open output file. 
Catalog the data files stored by 
this user (used only in immedi- 
ate mode). 

Catalog the data files stored by 
the System Manager with the 
extension ,D0. 

Delete a DECtape data file 
named by A$. 
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Table 6-2. EduSystem 25 BASIC Function Summary 



Function 



Description 



<ABS(X) 
ATN(X) 
COS(X) 
EXP(X) 
INT(X) 
LOG(X) 
RND(X) 
•SGN(X) 
SIN(X) 
SQR(X) 
TAN(X) 
TAB(X) 
FIX(X) 
CHR$(X) 

MID(A$,M,N) 

LEN(A$) 
CAT(A$,B$) 



Absolute value of x. 
Arctangent of x(result in radians). 
Cosine of x(x in radians). 
e x (e=2.7 18282). 
Greatest integer of x. 
Natural logarithm of x. 
Random number. 

Sign of x (+1 if positive, — 1 if negative, if zero). 
Sine of x (x in radians) . 
Square root of x. 
Tangent of x (x in radians) . 
Controls printing head position on Teletype. 
Truncates decimal portion of x. 
Converts character code to character. Used only 
with the PRINT command. 

Returns N characters, starting at the Mth char- 
acter of A$. 

Returns the number of characters in A$. 
Returns a string of A$ concatenated with B$ 
(maximum of 6 characters returned). 

ERROR MESSAGES 

EduSystem 25 checks all statements and commands before ex- 
ecuting them. If a statement or command cannot be executed, the 
system informs the user by printing an error message and the line 
number (if available) in which the error was found (see Table 
6-3). Procedures used to correct errors are described under Pro- 
gram Editing. 

Table 6-3. EduSystem 25 Error Messages 



Message 



Explanation 



WHAT? 



ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 



Immediate mode statement or command not under- 
stood. It does not begin with a line number and is 
not a valid system command. 

1 Log of negative or zero number was requested. 

2 Square root of negative number was requested. 

3 Division by zero was requested. 

4 Overflow, exponent greater than approximately +38. 

5 Underflow, exponent less than approximately —38. 

6 Line too long or program too big. 

7 Characters are being typed too fast; use TAPE com- 
mand for reading paper tapes. 
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Table 6-3 (Cont.). EduSystem 25 Error Messages 



Message 



Explanation 



ERROR 


8 


ERROR 9 


ERROR 


10 


ERROR 


11 


ERROR 


12 


ERROR 


13 


ERROR 


14 


ERROR 


15 


ERROR 


16 


ERROR 


17 


ERROR 


18 


ERROR 


19 


ERROR 


20 


ERROR 


21 


ERROR 22 


ERROR 


23 


ERROR 


24 


ERROR 


25 


ERROR 


26 


ERROR 


27 


ERROR 


28 


ERROR 


29 


ERROR 


30 


ERROR 


31 


ERROR 


32 


ERROR 


33 


ERROR 


34 


ERROR 


35 


ERROR 


36 


ERROR 


37 


ERROR 


38 


ERROR 


39 


ERROR 


40 


ERROR 41 


ERROR 42 



System overload caused character to be lost. 

Program too complex or too many variables. 

(GOSUB, FOR, or user defined function calls are too 

deeply nested.) 

Missing or illegal operand or double operators. 

Missing operator before a left parenthesis. 

Missing or illegal number. 

Too many digits in number. 

No DEF for function call. 

Missing or mismatched parentheses or illegal dummy 

variable in DEF. 

Wrong number of arguments in DEF call. 

Illegal character in DEF expression. 

Missing or illegal variable. 

Single and double subscripted variables with the same 

name. 

Subscript out of range. 

No left parenthesis in function. 

Illegal user defined function, not FN followed by a 

letter and a left parenthesis. 

Mismatched parentheses or missing operator after 

right parenthesis. 

Syntax error in GOTO. 

Syntax error in RESTORE. 

Syntax error in GOSUB. 

Syntax error in ON. 

Index error out of range in ON. 

Syntax error in RETURN. 

RETURN without GOSUB. 

Missing left parenthesis in TAB function. 

Syntax error in PRINT. 

Writing past end-of-file. 

Missing or illegal line number. 

Attempt to GOTO or GOSUB to a nonexistent line. 

Missing or illegal relation in IF. 

Syntax error in IF. 

Missing equal sign or improper variable left of the 

equal sign in LET or FOR, 

Subscripted index in FOR. 

Syntax error in FOR. 

FOR without NEXT. 

Syntax error in LET. 
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Table 6-3 (Cont). EduSystcm 25 Error Messages 

Message Explanation 

ERROR 43 Syntax error in NEXT. 

ERROR 44 NEXT without FOR. 

ERROR 45 Too much data typed or illegal character in DATA 

or the data typed in. 

ERROR 46 Illegal character or function in INPUT or READ. 

ERROR 47 Out of data. 

ERROR 48 Unrecognized command: RUN mode. 

ERROR 49 Bad file name or file not found. 

ERROR 50 Syntax error in LINPUT. 

ERROR 51 String error, argument is incorrect type or out of 

bounds. 

ERROR 52 String function error, missing or illegal argument. 

ERROR 53 File not open or bad syntax after #. 

ERROR 54 Reading past end of file. 

ERROR 55 Bad syntax in OPEN. 

ERROR 56 No room for file on DECtape. 



PROGRAM EDITING 

There are two times when a program may require editing pro- 
cedures. The first occurs while a line is being typed but before 
the RETURN key is pressed. The second occurs when a line has 
been completely typed and the RETURN key has been pressed. 
Each situation has its own editing procedures. 

Situation 1: Before the RETURN key is pressed. 

Three keys may be used to correct typing errors: <- (SHIFT/0), 
RUBOUT, or ALT MODE (or ESC) . 

«- (back arrow), SHIFT/0 on the keyboard, or RUBOUT 
is used to delete a character from a line. BASIC prints the 
back arrow, deleting the last character from that line. More 
than one back arrow deletes more than one character, in 
reverse order. 

ALT MODE (ESC on some Teletypes) is used to delete an 
entire line. When this key is used, BASIC prints $DELETED, 
erases that line from the program, and returns the carriage 
so that the line may be retyped. 
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Situation 2: After the RETURN key is pressed. 

Once a line of the program has been transmitted to computer 
memory via the RETURN key, several methods of correction may 
be used. Lines may be inserted, deleted, or changed. 

INSERTION 

To add a line to a program, assign a line number that falls be- 
tween two existing lines, type the line number and text, and press 
RETURN. 

DELETION 

To erase a line from computer memory, type the line number 
only and press the RETURN key. The DELETE command may 
also be used to erase lines* from memory. To erase a single line, 
type DELETE and the line number and press RETURN. DE- 
LETE followed by the two line numbers separated by a comma 
erases all lines between and including the two given. For example: 

DELETE 10., 20 

erases lines 10 through 20. 

CHANGE 

Old instructions may be replaced by new ones by retyping the 
line. This procedure is adequate for changing simple lines. When, 
however, the line contains a complex formula or a long message to 
be printed, it may be changed with the EDIT command. The EDIT 
command allows the user to access a single line and search for 
the character or characters to be changed. To use this command, 
type 

EDIT line number 

and press the RETURN key. BASIC waits for a search character 
to be typed (BASIC does not print this search character when it 
is typed). This search character is one that already exists on the 
line to be changed. After the search character is typed, BASIC 
prints the contents of that line until the search character is printed. 
At this point, printing stops and the user has the following options: 

• Type new characters; BASIC inserts them following the 
ones already printed. 

• Type a form feed (CTRL/L) to cause the search to pro- 
ceed to the next occurrence, if any, of the search character. 
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• Type a BELL (CTRL/G) to signal a Change of search 
character, then type a new search character. 

• Use the RUBOUT or «- key to delete one character to the 
left each time the key is pressed. 

• Type the RETURN key to terminate editing of the line at 
that point, deleting any existing text to the right. 

• Type the ALT MODE key to delete all existing characters 
to the left except the line number. 

• Type the LINE FEED key to terminate editing of the line, 
saving all the remaining characters on that line. 

When the EDIT operation is complete, BASIC prints READY. 
Note that line numbers cannot be changed with the EDIT com- 
mand. The following example demonstrates the EDIT command. 
An incorrect line was typed and entered to the system as follows: 

60 PRINT "PI=3. 14146 ABOU% ! " 

The line was edited as follows : 



EDIT 60 

PRINT "PI=3. 14146--59 ABOU%-T!" 



First 6 was entered as the search character. BASIC printed the 
line to the 6, and the RUBOUT key was typed twice to remove the 
two incorrect digits (46) and 59 was inserted in the line. CTRL/G 
was typed and another search character (%) was entered. BASIC 
printed characters to the % which was removed with a RUBOUT 
and replaced with a T. The LINE FEED key was typed to ter- 
minate the edit and save the remaining characters. If the line is 
listed, the following is printed on the Teletype. 

LIST 60 

60 PRINT "PI=3. 14159 ABOUT!" 
READY 
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OPERATING INSTRUCTIONS 

Loading EduSystem 25 

EduSystem 25 software is supplied on a DECtape. This tape, 
called the system DECtape, must be used to create the system 
when the system is installed. Perform the following procedures to 
activate EduSystem 25. 

INITIALIZE THE DECTAPE UNIT 

Perform the following steps to prepare the DECtape unit for 
loading software : 

1. Set the WRITE ENABLE/WRITE LOCK switch to 
WRITE LOCK. 

2. Set the REMOTE/OFF/LOCAL switch to OFF. 

3. Place the system DECtape on the left spindle with the 
DECtape label out. 

4. Wind four turns of tape onto the right spindle. 

5. Set the REMOTE/OFF/LOCAL switch to LOCAL. 

6. Wind a few turns of tape onto the right spindle with the 
-> switch to ensure that the tape is properly mounted. 

7. Dial on the unit selector dial. 

8. Set the REMOTE/OFF/LOCAL switch to REMOTE. 

INITIALIZE COMPUTER MEMORY 

The system may be activated in one of two ways: with an auto- 
matic loader (hardware bootstrap) or with an OS/8 bootstrap 
loader. The following instructions are for an EduSystem 25 that 
includes a hardware bootstrap. If the EduSystem does not have a 
hardware bootstrap, see Introduction to Programming 1972 , Chap- 
ter 9, for OS/ 8 bootstrap loading instructions. 

1 . Turn the key lock on the computer console to POWER. 

2. Turn all Teletypes to LINE. 

3. Mount the EduSystem 25 system DECtape on drive as 
described above. 

4. Set the SWITCH REGISTER (SR) to 0600 (octal). 4 

5. Press and raise the HALT switch. 

6. Press and raise the SW switch. 

The EduSystem-25 DECtape spins and the system indicates that 
it is active by printing a period (.) on the console Teletype. If the 

4 An explanation of the octal, or base 8, number system is included in Intro- 
duction to Programming 1972. 

6-31 



system is not activated, ensure that the correct DECtape is being 
used and repeat the above procedures. ■ 

Immediately following the period printed by the system, the 
user enters the characters shown below : 



■ R EDUS5 



The period is printed by the OS/ 8 Keyboard Monitor. The user 
types R to request the running of a program, in this case, Edu- 
System 25. 5 When the RETURN key is pressed, the system prints: 



TO BOOTSTRAP BACK OS/8 MONITOR: 
LOAD ADDRESS 07600 
AND START 

This message means that EduSystem 25 (or other OS/ 8 programs) 
can be started by setting the SR to 7600 and pressing ADDR 
LOAD, CLEAR, and CONT. The OS/8 Monitor prints another 
period, to allow the user to request a program. If, for example, 
the user types an incorrect response to the ensuing system dialog, 
.he can restart the dialog by reloading (bootstrapping back) the 
OS/ 8 Monitor from location 7600 and again requesting that Edu- 
System 25 be run. 

ANSWER SYSTEM DIALOG 

When the system has been activated correctly, it prints the iden- 
tification message: 

EDUSYSTEM 25 BASIC 

and begins to ask certain questions which the user must answer 
to establish the system configuration. The first question is : 

NUMBER OF USERS <1 TO 5)7 

The user responds with a single digit from 1 to 5, depending on the 
number of terminals to be used. If one user is specified, this ques- 



5 Refer to Introduction to Programming 1972, Chapter 9, for a complete 
explanation of the OS/8 Operating System. 
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tion ends the initial BASIC dialog. If more than one user is indi- 
cated, BASIC continues the dialog by asking: 

PDP-8/L COMPUTER <Y OR NJ? 

The user responds Y if the EduSystem 25 computer is a PDP-8/L, 
N if not. An N response to this question prompts the next question: 

STANDARD REMOTE TELETYPE CODES <Y OR N>? 

BASIC is asking for a PT08 or KL8E device code for each Tele- 
type to be used (excluding the console Teletype). Standard PT08 
or KL8E device codes are 40, 42, 44, 46, 50, 52, and 54. When 
a system using PT08 or KL8E interface units is first installed, the 
user determines the specific device code for each Teletype and 
labels each Teletype with its specific device code. If device codes 
are standard, the user responds Y to this question and BASIC 
assumes the standard device codes and continues the dialog. If 
device codes are not standard, the user enters N; BASIC then asks: 



TELETYPE #1 DEVICE CODE? 

BASIC asks this question for each Teletype to be used, up to 
seven times for an 8-user system. The user responds with the spe- 
cific 2-digit device code for each Teletype. 

When the device codes have been determined, or if the computer 
is a PDP-8/L, BASIC asks the following question: 

SAME AMOUNT OF STORAGE FOR ALL USERS? 

The above question requires the user to decide whether to partition 
the available core equally among the users on the EduSystem 25. 
(Since EduSystem 25 software uses 4K of core, the available core 
is always 4K less than the total core on the system.) If the user 
responds Y to this question, BASIC determines the size of the core 
memory available and divides it equally among the users, then ends 
the dialog. If N is the response, BASIC determines the amount of 
available core storage and prints the highest core field according 
to the following: 
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Field 7 — 32K core memory 
Field 6 — 28K core memory 
Field 5 — 24K core memory 
Field A — 20K core memory 
Field 3 — 16K core memory 
Field 2 — 12K core memory 
Field 1 — 8K core memory 

. For explanation purposes, the following dialog is written for a 
16K, 5-user EduSystem 25. The available core is to be allocated as 
follows: 

User 1 — 10 blocks (user 1 is the console terminal) 
• User 2 — 6 blocks 
User 3 — 8 blocks 
User 4 — 4 blocks 
User 5 — 4 blocks 

Each core field contains 16 blocks; a core field may be divided 
among several users, but no user may be allotted blocks in more 
than one core field. To determine the number of blocks, BASIC 
prints the following dialog and the user answers as shown: 



FIELD 3 

THERE ARE 16 BLOCKS LEFT IN THIS FIELD. 

YOUR ALLOCATION FOR USER #1 WILL 3t£ HOW MANY BLOCKS? 10 
THERE ARE 06 BLOCKS LEFT IN THIS FIELD. 

YOUR ALLOCATION FOR USER #2 WILL BE HOW MANY BLOCKS? 6 
FIELD 2 
THERE ARE 16 BLOCKS LEFT IN THIS FIELD. 

YOUR ALLOCATION FOR USER #3 WILL BE HOW MANY BLOCKS? 8 
THERE ARE 08 BLOCKS LEFT IN THIS FIELD. 

YOUR ALLOCATION FOR USER #4 WILL BE HOW MANY BL0CKS74 
THERE ARE 04 BLOCKS LEFT IN THIS FIELD. 

YOUR ALLOCATION FOR USER #5 WILL BE HOW MANY BLOCKS?^ 



When an invalid response is made to any of BASIC'S questions, 
an error message is printed and the question is repeated. For 
example: 

STANDARD REMOTE TELETYPE CODES (Y OR N>?4 
INVALID RESPONSE 

STANDARD REMOTE TELETYPE CODES CY OR N>? 
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When all responses have been entered, BASIC prints: 

IS THE ABOVE CORRECT <Y OR N)? 

If an incorrect response was made, answer N and BASIC begins 
the dialog again. A response of Y ends the dialog and BASIC 
prints: 

END OF DIALOGUE 
READY 

BASIC prints READY on each of the Teletypes associated with 
the specified device codes. 

ESTABLISH TERMINAL EXTENSIONS 

When EduSystem 25 is active, the user can write a simple, 
uniquely named program for each terminal (including the console 
terminal) and save the program from the terminal. To do this, the 
user: 

1. Sets DECtape drive to WRITE ENABLE. 

2. Types the following programs, for example, on the ter- 
minals in the sequence given : 

First Terminal 

NEW 

NAME— ALPHA 

READY 

10 PRINT "TERMINAL ALPHA" 

20 END 

SAVE 

READY 

Second Terminal 

NEW 

NAME— BRAVO 

READY 

10 PRINT "TERMINAL BRAVO" 

20 END 

SAVE 

READY 
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Third Terminal 

NEW 

NAME— CLOVER 

READY 

10 PRINT "TERMINAL CLOVER" 

20 END 

SAVE 

READY 

The user repeats this process, using a unique name, for each re- 
maining terminal. 

When the user has saved a uniquely named program from each 
terminal, he performs the following actions : 

1 . Set DECtape drive to WRITE LOCK. 

2. Press and raise the HALT switch. 

3. Set the SR to 7600; press ADDR LOAD switch. 

4. Press the CLEAR switch, then the CONT switch. 

The OS/ 8 Monitor responds by printing a period, and the user 
types: 

.R PIP 

PIP is the OS/ 8 Peripheral Interchange Program which is used to 
transfer files between devices, merge and delete files, and list, zero, 
and compress directories. 6 In this example, it is being used to ob- 
tain a directory listing. After the user types PIP and presses RE- 
TURN, PIP responds with an asterisk and the user types: 

*/F 

to request a directory listing. This example would produce a listing 
similar to the following: 

EDU25 .SV 
PIP .SV 
ALPHA .El 
BRAVO .E2 
CL0VER.E3 



6 Refer to Introduction to Programming 1972, Chapter 9, for a complete 
explanation of OS/8 PIP. 
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The EDU25 .SV and PIP .SV files are executable core images of 
these two system software programs. ALPHA .El, BRAVO .E2, 
and CLOVER .E3 are the programs the user Wrote and saved on 
DECtape. Now that the user knows the correct extensions for each 
Teletype, he can use a marker, e.g., a permanent-ink felt tip 
marker, to write the appropriate extension on each Teletype. The 
Teletype extensions will thus be clearly identified for each user. 
To return to the OS/ 8 Monitor, the user types CTRL/C and the 
Monitor again prints a period. 

CREATE DATA FILE TAPE 

DECtape drive 1 is used for EduSystem 25 data files. When the 
system is first installed, the user should create a tape for data file 
storage in the following manner: 

1. Mount a blank DECtape on drive 1; set the drive to 
WRITE ENABLE. 

2. Type R PIP after the OS/ 8 Monitor period. When PIP 
responds with an asterisk, type the following: 

*DTAls</Z 

This message instructs PIP to create a zeroed OS/ 8 direc- 
tory on the DECtape. The user should create this zeroed 
directory on each data DECtape file he establishes. 

3. Press CTRL/C; the OS/8 Monitor responds with its 
period and EduSystem 25 can be restarted by typing; 

.R EDU25 

pressing RETURN, and answering the dialog as before. 

When the data file tape has been created, EduSystem 25 is ready 
for use. Turn the key lock to PANEL LOCK to prevent the system 
from being disturbed. 

Maintaining the Public Library 

As previously explained, EduSystem 25 has a public library of 
programs which all users can access. Public library programs are 
stored or deleted by the system manager under the .E8 extension. 
The system manager can access all stored files and insert programs 
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into the library using PIP. For example, assume that a user on 
terminal .E2 has developed a program that the system manager 
feels all users would like to access. This program, named PEACE, 
could be inserted into the public library by the system manager as 
follows: 

1. Turn key lock to POWER. 

2. Set DECtape drive to WRITE LOCK. 

3. Press and raise the HALT switch. 

4. Set the SR to 0600. 

5. Press and raise the SW switch. 

6. The OS/ 8 Monitor prints a period on the console terminal 
(.E0 ). The user types: 

.R PIP 

7. Set DECtape drive to WRITE ENABLE. 

8. When PIP responds with an asterisk, type : 



*/F 



PIP prints the directory listing of the EduSystem 25 sys- 
tem DECtape, for example: 



EDU25 .SV 
PIP .SV 
ALPHA .El 
TEST .E0 
GAMBLE. El 
ROCKET.E0 
BRAVO .E2 
PEACE ,E2 



9. Stop the directory printout by typing CTRL/O (press O 
while holding down the CTRL key). PIP responds with an 
asterisk. The user then types: 

*DTA0: PEACE. E8<DTA0sPEACE.E2 

and presses RETURN. 
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. 10. PIP copies the program PEACE and affixes the .E8 ex- 
tension to the copy. PEACE has been placed in the public 
library. 

11. Type CTRL/C. The OS/ 8 Monitor responds by typing 
a period. EduSystem 25 can be restarted. 

1 2. Turn the key lock to PANEL LOCK. 

Protecting DECtape Files 

Programs, or data files, stored under the system manager's ex- 
tension (.E8 or .D8) are protected by simply locking the com- 
puter console. This information can still be accessed by all users 
but cannot be erased from the DECtape or manipulated in any 
way. Program and data files created under user extensions can be 
manipulated and deleted as previously described. The system man- 
ager can protect user extensions, limiting them to read-only opera- 
tions by setting the appropriate DECtape unit (drive to 1) to 
WRITE LOCK. DECtape drives should also be set to WRITE 
LOCK when: 

1 . Starting up any DECtape system. 

2. Shutting down any DECtape system. 

Storing Programs on Paper Tape 

If ASR-33 Teletypes (TTY) are available, programs may be 
saved on paper tape to save storage space on the system DECtape. 
Once a program has been typed correctly, it may be saved by per- 
forming the following procedures: 

1. Turn the TTY control knob to LINE. 

2. Type TAPE; press RETURN. 

3 . Turn the TTY paper tape punch ON. 

4. Type LIST; press RETURN. 

5. When punching is complete, turn the TTY punch OFF. 

6. Type KEY; press RETURN. 

Reloading Programs from Paper Tape 

Programs saved on paper tape may be reloaded using the Tele- 
type (TTY) paper tape reader. To reload programs, perform the 
following procedures. 

1 . Turn the TTY paper tape reader to FREE. 

2. Turn the TTY control knob to LINE. 
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3. Insert tape in the reader. 

4. Type TAPE; press RETURN. 

5. Turn the TTY reader to START. 

6. When the tape has read in, turn the TTY reader to FREE. 

7. Type KEY; press RETURN. 

System Reconfiguration 

If the user desires to change the EduSystem 25 configuration at 
any time, he simply performs the procedures used for loading the 
system initially and answers the dialog again to reflect the new 
configuration. A reconfiguration would be needed, for example, 
if new terminals were added, thus changing the number of users. 
EduSystem 25 must be inactive to be reconfigured. To ensure that 
the system is inactive, the user types CTRL/C to stop a running 
program or the listing of a program and turns all the terminals 
OFF. He can then proceed with the reconfiguration. 

System Shutdown 

If power failure detection hardware is available on the system, 
the system can be shut down by simply turning the console key 
lock to OFF. Otherwise, to shut the system down, overnight or for 
any reason, the user ensures that the system is inactive, as explained 
above; he then presses the HALT switch and turns the key lock 
to OFF. 

System Restart 

If power failure detection hardware is available on the system, 
it can be restarted by simply setting all DECtape drives to WRITE 
LOCK and turning the key lock to PANEL LOCK. Otherwise, the 
following procedures are necessary: 

1. Turn the key lock to POWER. 

2. Set the SR to 7600 and press ADDR LOAD. 

3 . Press the CLEAR switch and the CONT switch. 

4. Turn the appropriate Teletypes to LINE. 

5. Turn the key lock to PANEL LOCK. 

EduSystem 25 responds by printing the OS/ 8 Monitor period. The 
user can then request EduSystem 25 as described previously. 



6-40 



edusystem 3o 



INTRODUCTION 

EduSystem 30 is a powerful 5 ASIC-speaking system that 
adapts to .the loner or to the crowd. The system operates in two 
modes: batch and interactive. In batch mode„ the system reads 
programs prepared on spprially formatted optfcal mark cards. 
Cards are marked with aa ordinary pencil on keypunched. Rtttffl&ig 
programs in batches, EduSystem 3 0^ can process hundreds of stu- 
dent programs per day. When operated in interactive mode, Edu- 
System 30 allows one person at a time to interact with the com- 
puter through the Teletype. 

In either mode, the system provides a powerful BASIC lan- 
guage with advanced features such as string variables, program 
chaining, and data files. Programs can be stored on a magnetic 
storage device (DECdisk or DECtape) and retrieved when needed 
— a great time-saving feature. In addition, EduSystem 30 keeps a 
log of all programs it runs, providing an exact record of how stu- 
dents are using the computer. Also available is a unique capability 
for automatic testing (and grading) of student programs. 

System Components 

EduSystem 30 is composed of a PDP-8/E' computer with 4096 
(4K) words of core memory, powerfail protection, - automatic 
loader (hardware bootstrap), 32,768 (32K) word DECdisk, optical 
mark card reader, and computer terminal (Teletype) with paper 
tape reader/punch. Each EduSystem 30 includes the BASIC lan- 
guage processor with batch capabilities and a library of sample 
programs, textbooks, and curriculum guides. DECtape may be 
substituted for DECdisk. A punched card reader may be used in 
place of the marked card' reader. The system also supports a high- 
speed paper tape reader/punch and a line printer. 
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System Expansion 

EduSystem 30 expands easily to EduSystem 40 and, with addi- 
tional memory and DECtape, may be used to run the OS/ 8 Oper- 
ating System, DEC's programming system for the PDP-8 computer. 

• To expand to EduSystem 40, add 4K words of core memory, 
plus up to seven additional computer terminals and their 

. associated interfaces (12K words of core memory are 
recommended for more than five terminals), and an Edu- 
System 20 software set. 

• To run OS/8, add 4K words of... core memory (providing the 
system includes DECtape). 

BASIC LANGUAGE CAfAlilLITIES 

EduSystem 30 BA$Kfincludes the language elements shown in 
Table 7-1. - The /; system also includes many advanced features to 
jflow themsrio perform more complicated and lengthy problem- 
solving operations. Features which pertain to either the inter- 
active mode or the batch mode are discussed in separate sections. 
This section explains the advanced features that can be used in 
both modes. 

Table 7-1. EduSystem 30 BASIC Statement Summary 



Statement Description 



Input/ Output Statements 

LET Assign a value to a variable. The word LET 

is optional for interactive programs. 

PRINT Print out the indicated information. 

READ Assign values from data list to variables. 

DATA Provide data for a program, 

RESTORE Restore the data list. 

R WRITE Record data on DECtape storage file. 

GOTO Change order of program execution. 

IF GOTO \ Conditionally change order of program exe- 

' IF THEN. J cution. 

FOR TO STEP Set up a program loop. 

NEXT End of program loop. 

DIM Define subscripted variables. 

GOSUB Go to a subroutine. 

RETURN Return from a subroutine. 

INPUT Get values from the Teletype. 

REMARK (REM) Insert a program comment. 
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Table 7-1 (Cont). EduSystem 30 BASIC Statement Summary 



Statement 



Description 



RANDOMIZE 



DEF 
CHAIN 

NOLINE 



STOP 
END 



Cause RND function to randomly select new 

sequence of random numbers between and 

1. 

Define a function. 

Link to next section of a program which is 

stored within the system. 

Do not print out the line numbers in which 

program logic errors are found. (Allow longer- 

than normal programs to be run without 

chaining.) 

Stop program execution. 

End a program. 



Editing/ Control Commands 



LIST 
LIST n 
LISTNH 

LISTNHn 

RUN 
RUN NH 
SCRATCH (SCR) 

CTRL/C 



TAPE 



ECHO 

PUNCH 
PUNCH n 

LPT 

TTY 

BATCH 

RESEQUENCE 

NEW 
OLD 



namb 



List all stored program statements. 
List program starting at line n. 
List all program statements but do not print 
a header line. 

List program starting at line n but do not 
print a header line. 
Execute the current program. 
Same as RUN without header line. 
Delete the currently stored (in memory) 
program. 

Stop execution of a program or printing of 
a listing. CTRL/C is typed by pressing C 
while holding down the CTRL key. 
Read a program from paper tape. Ignore 
any line which does not begin with a line 
number. 

Switch from printout to non-printout mode 
or vice versa. 

Punch a program on the high-speed punch. 
Punch a program on high-speed punch, start- 
ing at line n. 
Print output on line printer. 

Switch back to Teletype from line printer. 

Begin processing card programs. 

Renumber program lines. 

Clear memory, request P^ramname^ 

Clear memory, bring program to 

ireTntC does not dear memory. 
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Table 7-1 (Cont.). EduSystem 30 BASIC Statement Summary 



Statement 



Description 



CATALOG (or CAT) 

LENGTH 

PRIVILEGE 



Privileged Commands 1 

PASSWORD 
SAVE 

UNSAVE 

HEADER 



LOG 
MAX 

BATCH n 
STACK 
STACK n 

Functions 

ABS(X) 

ATN(X) 

COS(X) 

EXP(X) 

INT(X) 

LOG(X) 

RND(X) 

SGN(X) 

SIN(X) 

SQR(X) 

TAN(X) 

TAB(X) 

CHR$(X) 



Print out the names of programs in storage 

area. 

Print out the number of blocks needed to 

store the current program. 

Enable use of privileged commands. To be 

successful, this command must be followed 

by the correct password. This command is 

recognized only if the privileged command 

capability was selected at system lead time. 

Change the password code. 
Save the current program in the system stor- 
age area. 

Delete the named program from the system 
storage area. 

Change the system header; type new header 
(maximum 12 characters) for next batch 
run. 

Print system log. 

Set instruction limit n times 200 per pro- 
gram for next batch run. 
Same as BATCH; limit runs (n) per program. 
Start unattended batch operation. 
Same as STACK; limit runs, (n) per program. 

Absolute value of x. 

Arctangent of x (result in radians). 

Cosine of x (x in radians) . 

e x (e=2.712818). 

Greatest integer of x. 

Natural logarithm of x. 

Random number. 

Sign of x (+1 if positive, — 1 if negative, 

if zero). 

Sine of x (x in radians) , 

Square root of x. 

Tangent of x (x in radians) . 

Controls printing head position on Teletype. 

Converts character code to character. Used 

only with the PRINT command. 



r£r% privIle8ed , com ^ands may only be used after a successful PRTVT 
LEGE command has been executed. successful fKlVI- 
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Using Random Numbers 

The RND function allows the use of random numbers within a 
program. The RND function returns a random value between zero 
and one. Unlike the other functions, the value returned by RND 
is not a function of its argument. However, all functions in BASIC 
must be followed by an argument. Therefore, RND should always 
be followed by a dummy argument, such as zero, which is en- 
closed in parentheses. 

Notice that it is possible to generate random numbers over any 
range. For example, the expression: 

(B-A)*RND(0)+A 

has a random value in the range A<n>B. 

Repeated uses of RND in a program return different values be- 
tween zero and one. The sequence of numbers is, however, the same 
each time the program is run. Thus, the sequence is reproducible 
for later checking of the program. The RANDOMIZE statement 
allows the user to make the random number sequence returned by 
the RND function different each time a program is run. That is, 
when executed, the RANDOMIZE statement causes the RND 
function to select randomly a new sequence of random numbers. If 
RANDOMIZE is used, it normally appears as one of the first lines 
in a program. 

Running Long Programs 

EduSystem 30 runs programs of up to 6000 characters in inter- 
active mode and up to 5000 characters in batch mode. These 
limits correspond to roughly 200 and 250 lines per program, 
respectively. In some cases, interactive programs which are at or 
near the 6000 character limit and which contain many complex 
FOR, IF, and GOSUB sections are too large to be run. If this is 
the case, the NOLINE command may be used to gain more space. 
If NOLINE is used, program logic errors which are detected 
while the program is executing cause an error message to be 
printed, but the line number of the error is not printed. NOLINE 
allows substantially longer programs to be run. 

If the program to be run is substantially longer than the 6000- 
character limit, it may still be run by means of a technique known 
as chaining. The program is written in sections, each of which is 
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less than 6000 characters. A chained program may have many of 
these program sections and, hence, may be indefinitely long. Each 
section of the total program is then stored in the system storage 
area with the SAVE command under a separate name. The final 
command to be executed in all but the last section is a CHAIN 
statement containing the name of the next section of the program. 
For example, the statement 



950 CHAIN "PART 10' 



would cause the system to load and execute the stored program 
whose name is PARTI 0. 

In the CHAIN statement, the name of the next section of the 
program must be encoded in quotation marks and must be 
exactly six characters long. If the actual name of the next section 
is less than six characters, one or more spaces must be inserted 
before the second quotation mark to make a total of six characters. 
For example, if the next section of the program is named LINK2, 
the following CHAIN statement would be used: 



955 CHAIN "LINKS!/ 

Execution of the CHAIN statement loads and executes the 
named program. The previous section of the program is deleted. 
Thus, the user only needs to load the first section and run it. All 
succeeding sections of the chained program load and execute 
automatically. 



Using a Data File 

Just as some programs may be too large to be executed in one 
piece, other programs may need to store and use more data than 
may be accommodated under normal system operation. If this is 
the case, data may be temporarily stored in the system storage 
area. Data stored in this way is referred to as a data file. 
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The data file is actually a part of the program data which is de- 
fined by a DATA statement. All data within a program is gathered 
from the DATA statements into a data list which is then read by 
READ statements. As items are read from the list, they are marked 
as already having been used. A READ statement always fetches 
the next item from the list. In fact, the data list may be con- 
sidered to have a movable marker which remembers the next item 
of the list. The marker initially marks the first data item. As READ 
statements are executed, the marker moves down the list. A RE- 
STORE statement moves the marker back to the top of the list. 

The data file capability allows a program, by means of a 
WRITE statement, to change and add to this data list as well as 
to read it. The WRITE statement format is the same as the DATA 
statement format. Writing a variable puts the value of that variable 
in the next place in the data list. The data item that was there pre- 
viously is replaced by the new value. If a WRITE statement fol- 
lows a RESTORE, it changes the first item or items in the data 
list. If it follows one or more READs (or WRITEs), the WRITE 
statement changes data items further down in the data list. The 
total number of items which may be put in the data list depends 
on the size of the program. Maximum sized BASIC programs 
may have up to 1000 items; small programs have room for 2000 
items. 

Programs which write data on the data list must keep track of 
how much data has been written and the order in which it was 
output. If data which has been written is to be subsequently read, 
a RESTORE statement must be executed to return the marker 
to the top of the data list. If data has been written off the end of 
the data list, the program must remember how many items the data 
list contains, and be careful not to try to READ more data items 
than are there. The normal BASIC check for end of data does not 
exist for a written data list. The program must also be sure that 
it does not write more data than the data list can contain (1000- 
2000 items). Writing too much data causes part of the user's 
BASIC program to be destroyed. 

Data files are frequently used in conjunction with chaining 
since data written onto the data list by one program section may 
be read by the next section. The program section which writes the 
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data must execute a RESTORE just before the CHAIN state- 
ment. The next section, which reads the data list, must not have 
any DATA statements since this data would destroy the data 
items written by the previous section. 



Character Variables and String Capability 

Standard BASIC statements deal only with numbers, assuming 
all variables to be decimal values. However, BASIC is also capa- 
ble of performing many useful operations on characters or words 
(strings of characters) instead of numbers. The character handling 
capabilities of BASIC depend on the representation of individual 
characters as numbers. Each character has its own numeric code 
(or character code), as indicated in Appendix B. When a character 
is input, by an INPUT statement, it is converted to a numeric 
code. All internal processing of that character uses this code. Since 
the code is a number, it can be used and manipulated- with any 
BASIC statement. When a user program is to output a character, 
BASIC converts the numeric code back into a character and 
prints the character. In short, characters stored in a BASIC pro- 
gram are indistinguishable from numeric values. The only differ- 
ence is in the way they are used, i.e., that certain numeric values 
actually represent characters. 

The INPUT statement is used to input characters. A dollar sign 
($) is placed before a variable name to indicate that a character 
code is to be input rather than a decimal number, e.g., INPUT $A. 
When the character is typed, its character code is stored in the 
indicated variable. It is important not to confuse character input 
with numeric input. A potential confusion lies in the fact that the 
numeric values are themselves characters. For example, the value 
234 is composed of the three characters 2, 3, and 4. If these three 
characters were input to a BASIC program as character variables, 
they would be entered as three separate numeric (character code) 
values rather than as the single value 234. Whether the input 
is character code or numeric, the physical characters typed at the 
terminal are identical; the difference is entirely in the way that the 
program interprets the input. In the following examples, each 
program executes an INPUT statement. In the program on the 
left, three characters are entered and three variables are set up. In 
the example on the right, a single numeric value is input. 
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10 PRINT "ENTER VALUE "; 
20 INPUT $X1,$X2>SX3 
30 PRINT, Xi;X2iX3 
40 END 
RUN NH 



10 PRINT "ENTER VALUE"; 
20 INPUT X 
30 PRINT X 
40 END 
RUN NH 



ENTER VALUE 234 50 51 52 
READY 



ENTER VALUE? 234 
234 

READY 



Note that character INPUT statements do not cause a ques- 
tion mark to be printed. Therefore, a series of characters may be 
typed without intervening question marks. Programs doing char- 
acter input must therefore indicate, by PRINT statements, when 
input is expected. Also note that the $ is not part of the variable 
name. It is used only in INPUT statements to indicate that typed 
characters are to be converted to their numeric character codes 
before being stored in the variable. 

Character codes may be converted to their respective characters 
by means of the special PRINT statement function CHR$. CHR$ 
is the inverse of the dollar sign INPUT convention. The CHR$ 
function takes, as its argument, a single constant or variable and 
prints the single character whose code corresponds to that value. 
For example: 

50 PRINT CHR$(65) 



prints the character A. CHR$. may only be used in PRINT 
statements. 

One of the most frequent uses of the character capability is to 
enter words or characters into BASIC programs in response to 
questions. For example, a program might ask the user if he wants 
to run the program again with a different set of input data. The 
user responds by typing Y if he wants to run again or by typing N 
if not. The program then compares the code of the character en- 
tered with the character code of Y to determine if they are equal. 
If so, it branches back to the beginning of the program. If not, the 
program executes the remaining statements. The following program 
illustrates the use of character variables in making a run-time 
decision. 
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10 


PRINT 












20 


PRINT 


"WOULD 


YOU 


LIKE 


TO 


DO 


30 


INPUT 


$A 










40 


IF A=#Y THEN 


10 








50 


IF A<> 


#N THEN 90 








60 


PRINT 












70 


PRINT 


"O.K. 


IT'S 


YOUR 


CHOICE 


80 


STOP 












90 


PRINT 












100 PRINT "Y OR 


N?" 


» 
* 






1 1 GOTO 


30 










120 END 












RUN NH 













THIS AGAIN (Y OR N)?"; 



WOULD YOU LIKE TO DO THIS AGAIN CY OR N)?Y 
WOULD YOU LIKE TO DO THIS AGAIN (Y OR N)?8 

Y OR N?Z 

Y OR N?N 

O.K. IT'S YOUR CHOICE. 

READY 

The comparisons shown in the preceding program are facilitated 
by a special BASIC language feature. Pound sign (#) followed 
by a single character may be used to indicate the character code 
of the single character following the pound sign. In line 40 above, 
using #Y relieves the programmer of the need to remember or 
reference the actual character code for. Y. 

Often, the character capability is used to input a series (or 
string) of characters, such as a last name. The string may be any 
number of characters up to a full line (72 characters on a Teletype 
line). In this case the program must read each character and de- 
termine whether it is the carriage return character (character code 
13) which indicates the end of the line. Subscripted variables are 
used to store such a series of characters. The following program 
illustrates character string input: 



10 DIM A(72) 

20 PRINT "TYPE YOUR NAME:'*; 

30 FOR 1=1 TO 72 

40 INPUT $A<I) 

50 IF A<I)=13 THEN 70 

60 NEXT I 

70 END 
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USING THE INTERACTIVE TERMINAL 

When EduSystem 30 is not processing card programs, it may be 
used interactively from the Teletype. In this mode of operation, 
programs and commands are typed directly at the keyboard without 
being marked on cards first. Individual program lines may be 
changed, deleted, or added without having to read the whole pro- 
gram again. Listings and program output are produced at the 
terminal (or line printer) as always. 

The system is ready for interactive use whenever it prints 
READY. If a batch run has just been completed and the system 
has typed MORE CARDS?, the user responds by typing N to in- 
dicate that no more card programs are to be run. The system then 
prints READY. The word READY always indicates that the sys- 
tem can accept commands from the Teletype. 

Entering Programs 

Programs are entered in the computer by the user typing at the 
Teletype keyboard. Each statement in the program must begin 
with a line number between 1 and 4095. In interactive mode, all 
lines of input are terminated when the RETURN key is typed. 
Statements need not be entered in order. BASIC automatically 
arranges program lines in their proper order. 

EduSystem 30 BASIC expects each program to have an assigned 
name. At the beginning of each interactive session, the NEW com- 
mand should be typed to clear any existing program in core and 
define the name of the new program to be entered. 2 To use the 
NEW command, the user types 

NEW 

and the system asks for: 

NEW FILE NAME — 

The user then types any name of 1 to 6 characters (the first of 
which must be a letter), followed by the RETURN key. BASIC 
assigns that name to the program to be entered. The user may 



2 If the user does not wish to assign a program name, he can delete any 
existing program by typing the SCRATCH command. 
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change the name of the program being entered at any time by 
typing the NAME command. BASIC again asks for NEW FILE 
NAME and assigns a new name to the program being entered. The 
NAME command does not delete the existing program. 

Using Multiple Statements per Line 

EduSystem 30 allows more than one statement to be typed on a 
single line. Statements after the first begin with a back slash char- 
acter (\) which is SHIFT/L on the keyboard. A program is often 
more understandable when statements, such as a series of LET's, 
are grouped into a single line. For example, the program: 



10 A=3\B=8\C=13 

20 PRINT (A+B+C>*5\END 



is the same as 



10 LET A=3 

20 LET B = 8 

30 LET C=*13 

40 PRINT <A+B+C)*5 

50 END 



and will produce the same result when the RUN command is 
typed: 

RUN NH 

120 
READY 

This multiple-statement capability is helpful when writing long pro- 
grams since statements require less storage in the computer when 
they are grouped as a single statement. 

Listing the Program 

The LIST command may be used to list all or part of the current 
program. LIST print* the program statements in their proper order, 
regardless of the order in which they were entered. The EduSystem 
30 LIST command has four different forms, as shown below. 
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Command Meaning 

LIST List the entire program. Precede it by a header line 3 

giving the name of the program. 
LIST n List the program starting at the given line number 

(n). Precede it by a header line. The line number 

must be separated from LIST by two spaces. 
LISTNH List the entire program, but do not print a header 

line. 
LISTNHn List the program starting at the given line number 

(n) , but do not print a header line. 

NOTE 

The programmer may stop a listing at any 
time by typing CTRL/C on the keyboard. 

Executing the Program 

The programmer may execute a program at any time by typing 
the RUN command. The existing program is inspected for errors; 
if none exist, it is executed. If an error is detected, an error mes- 
sage (see the section on Error Messages) is printed. In either case, 
at the end of the run, BASIC prints READY, indicating that the 
program may now be changed or rerun. There are two types of 
RUN commands: RUN and RUN NH. RUN executes the current 
program, preceding it by a header line. RUN NH (NH means no 
header) executes the current program but does not print a header 
line. RUN and NH must be separated by a single space. The user 
may terminate program execution at any time by typing CTRL/C. 

Loading a Card Program for Interactive Use > 

Programs previously written on cards may be loaded for use in 
interactive mode. The program deck is preceded by a NEW card 
and followed by a KEY cark The„tfs'er mounts this deck in the 
card reader in the normalway ($e Executing Card Programs for 
instructions) and types the BATCH command. Cards are processed 
in normal batch fashion until the KEY card is read. The KEY 
card switches the system to interactive mode. The program is then 
available for execution or editing from the interactive terminal. 



3 A header line consists of the program name followed, on the same line, 
by the system name (EDU BASIC). If no program name was assigned, 
the system prints "*NONE* EDU BASIC". 
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After two RUN commands (or after some number of RUNs if the 
privileged BATCH command is used), the system automatically 
returns to processing any additional card program in the reader. 

Storing Programs on Paper Tape 

Once a program has been entered or read correctly, it may be 
saved on paper tape for quick reloading, as follows: 

1 . Turn the Teletype control knob to LINE. 

2. Type LISTNH but do not press the RETURN key. 

3. Turn the Teletype paper tape punch ON. 

4. Press SHIFT/CTRL, type "PPPPPP" to produce some 
leader tape. 

5. Press the RETURN key. 

6. When punching is complete, press SHIFT/CTRL, type 
"PPPPPP" to produce some trailer tape. 

7. Turn the Teletype punch OFF. 

8. Carefully rip tape off punch. Notice that an arrow head is 
at the beginning of the program and an arrow tail at the 
end. 

Reloading Programs From Paper Tape 

Programs punched on paper tape may be reloaded using the 
Teletype (TTY) paper tape reader. The TAPE command is used 
to load programs from paper tape as follows : 

1. Insert the paper tape in the TTY reader, with the arrow 
head facing out of the reader. 

2. Turn the TTY control knob to LINE. 

3. Type NEW, then press the RETURN key. 

4. Type the program name. 

5. Type TAPE, press the RETURN key. 

6. Turn the TTY paper tape reader to START. 

7. When the tape has read in, turn the TIT reader to FREE. 
Remove the paper tape. 

A special control command, ECHO, may be used with TAPE 
to prevent the program from being listed while it is being read. The 
first time it is used, ECHO inhibits all printout. A second ECHO 
command restores normal printout. 

Privileged Control Commands 

Several optional commands are available which modify and con- 
trol a program run. All of these commands are considered to be 
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privileged in the sense that their use is restricted. The privileged 
commands are available only if the privileged command capability 
was selected when EduSystem 30 was loaded. During normal sys- 
tem operation these commands are disabled. If a user attempts to 
use a privileged command, it is ignored and the system prints 
WHAT? 

A special command, the PRIVILEGE command, is used to make 
these privileged commands available. To use PRIVILEGE, the 
user types PRIVILEGE and the RETURN key. The system then 
waits for the user to type a one to six character password code. 
(The typed characters are not printed.) At the time the system was 
loaded, a password was typed into the system. The characters typed 
after the PRIVILEGE command are compared to this password. 
If they match, the PRIVILEGE command is successful and all 
privileged commands may then be used. If they do not match, the 
message INVALID PASSWORD is printed and all privileged com- 
mands continue to be unavailable. 

In short, the user must know the password in order to use any 
privileged command. It is important that the password be kept 
secret. For this reason, the password is never printed when the user 
types it. It is possible to change the password code at any time. The 
command, PASSWORD, which changes the code is, of course, a 
privileged instruction. Certain privileged commands are used only 
when processing card programs; these commands are discussed 
under Executing Card Programs. The other privileged commands, 
SAVE and UNSAVE, are discussed below. All privileged com- 
mands must be typed at the terminal; they cannot be entered on 
cards. 

Using the System Storage Capability 

EduSystem 30 allows the system device (DECdisk or DECtape) 
to be used for permanent on-line storage of programs. Programs 
stored in this way may be loaded instantly, without the need to load 
a paper tape or card deck or type a program. 

SAVE AND UNSAVE COMMANDS 

Two commands, SAVE and UNSAVE, may be used to change 
the contents of the system storage area. Because the amount of stor- 
age space is limited, and to prevent accidental erasure of stored 
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programs, both SAVE and UNSAVE are privileged commands. 
During normal system operation they are disabled. SAVE and UN- 
SAVE may only be used after a successful PRIVILEGE command 
has been executed. 

The SAVE command stores the programs currently in memory 
on the system storage area (DECtape or DECdisk) and gives it the 
name specified by the last NEW, OLD, or NAME command. Any 
existing program stored under this name is deleted. Thus, all stored 
programs have names which may be used to recall them in the fu- 
ture. If a SAVE is attempted when the privileged commands are 
disabled, the system prints WHAT? and ignores the command. If 
a successful PRIVILEGE command has been executed, but the 
storage area is full, the message NO SPACE is printed and the 
program is not stored. 

The UNSAVE command is used to delete a program already 
stored. UNSAVE must be preceded by a NEW, OLD, or NAME 
command which specifies the name of the file to be deleted. The 
user must be certain to use exactly the same program name as he 
used when he first identified the program. Like SAVE, UNSAVE 
is ignored unless preceded by a successful PRIVILEGE command. 
If the program to be deleted does not exist in the system storage 
area, the message FILE NOT SAVED is printed and no program 
is deleted. 

CATALOG COMMAND 

The CATALOG command may be used to obtain a list of the 
names of all programs available in the system storage area. The 
CATALOG list includes the number of storage blocks used by the 
program. A standard EduSystem 30 includes 116 blocks of storage 
space (for nonstandard systems, see Calculating Available Stor- 
age). The CATALOG command may be used to determine how 
many of these blocks have been used and, hence, how many are 
free. 

LENGTH COMMAND 

If the system storage space is almost full and another program is 
to be saved, the LENGTH command may be used to determine if 
there is room to store the current program. If space is not available, 
an existing program must be deleted. In all cases, the maximum 
number of stored programs, regardless of size or storage device, 
is 62. 
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OLD COMMAND - 

The user may load programs stored in the system storage area at 
any time by typing the OLD command. After the OLD command 
is entered, the system prints OLD PROGRAM NAME. The user 
then types the name of the program to be loaded. The user must 
be certain to use exactly the same program name as he used when 
he first identified the program. 

Returning to Batch Mode 

At the end of an interactive session, the system is ready for 
further batch processing. When the system prints READY, the 
BATCH or STACK command may be used to begin a batch run. 

Program Editing 

There are two times when a program may require editing pro- 
cedures. The first occurs while a line is being typed but before the 
RETURN key is pressed. The second occurs when a line has been 
completely typed and the RETURN key has been pressed. Each 
situation has its own editing procedures. 
Procedure 1 : Before the RETURN key is pressed. 

Three keys may be used to correct typing errors: ALT MODE 
(or ESCAPE), «- (back arrow), or RUBOUT. 

ALT MODE (or ESCAPE) is used to delete an entire line. 
When this key is used, BASIC prints DELETED, erases that 
line from the program, and returns the carriage so that the 
line may be retyped. 

<- (back arrow), SHIFT/O on the keyboard, or RUBOUT is 
used to delete a character from a line. BASIC prints the back 
arrow, deleting the last character from that line. More than 
one back arrow deletes more than one character, in reverse 
order. 

Procedure 2 : After the RETURN key is pressed. 

Once a line of the program has been transmitted to computer 
memory via the RETURN key, several methods of correction may 
be used. Lines may be inserted, deleted, changed, or renumbered. 

INSERTION: To add a line to a program, assign a line num- 
ber that falls between two existing lines, type the line number 
and text, and press RETURN. 
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DELETION: To erase a line from computer memory, type 
the line number only and press the RETURN key. 
CHANGE: To change an individual line, simply retype it. 
The old instruction is replaced by the new one. 
RENUMBER: Occasionally, repeated editing and insertions 
result in there being no more room in an area of a program 
to insert new lines. It is then necessary to spread out the line 
numbers so there is room for new insertions. The RESE- 
QUENCE command is used for this purpose. To renumber a 
program, type the RESEQUENCE command. This command 
changes the first line's number to 100 and renumbers each 
succeeding line with an increment of 10. RESEQUENCE also 
automatically changes all GOTO, GOSUB, and IF statements 
to correspond to the new line numbers. 



WRITING AND RUNNING CARD PROGRAMS 
Writing a Program on Cards 

Programs to be submitted to Edu$#stem 30 are first transcribed 
onto specially formatted BASIC caras. These cards are preprinted 
with a series of small rectangular b/xes. Each card has 39 columns 
of boxes, with the column numher printed along the lower edge. 
Figure 7-1 illustrates a BASIC cj«-d. 



M1IIIIIIIMIIMIIIIM11MIIIIIMI 

BBQSnSSBESEEEBSSBSraHQBffiEOlEBMSEBfflQ] 
ilBSBBQBSBfflBCDBBBaafflQIQQBafflHEQraQEfflBffl 

B8SBBSBSEESBBSBSB8 

tin lis™ ass aaas 

BSSHlBSSBBSEBSiaSSB 
8811] SMMpBBSSBSSH BBS 

saOIBMiyisBHSiaiasHBas 

SBBBSBSfflfflBSBSSBSlBSBBSS 

BBBBBBBBISBSSBBSSaBBSB 

ISEBBSBBI1BSBBBSSBSBBSS 

iJBBSBSSBBEBBBSBBBBBBBSBaBBBBBBHBHB 

tl7|IH|ie|ll|U|13|U|l}|lt|n|H|ll|2<2lU2H3l24l25l2tl27U»[2llMl3ll32l33l3il3>l3il37l3tl?3l 





litBBBiBSBBSSaSJBB 
BSB 

iJSBBsassaiBSfflBsaB 

SHSBIS 

ftsaaa 
aaasBB 

aBBBBBBBBBBB 
SSBBSSESSESS] 




|ifi 

EHSfflBffl 




Figure 7-1. EduSystem 30 BASIC Card 

Program statements are written onto jfhe BASIC cards by mark- 
ing these boxes with ordinary lead pencfl. Each box is marked with 
a single heavy line, drawn either vertically or diagonally. It is not 
necessary to fill in the entire box. Avoid making any stray marks, 
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as the computer reads all marks on the card, whether or not they 
occur inside a box. Any stray marks cause the computer to misread 
the card. A program to be submitted to EduSystem 30 is marked 
on a series of these cards; each program statement is placed on a 
separate card. 

LINE NUMBERS 

The first item of each program statement to be marked on the 
card is the line number. All program statements must have line 
numbers from 1 to 999. The line number is marked in the leftmost 
three columns of the card. In each of these columns are 10 boxes 
containing the digits through 9. (Above these numbered boxes 
are six other boxes which are never marked as part of a program 
statement. They are used as control cards and are explained later.) 

The user marks an appropriate digit in each of three columns. 
If the line number is only one or two digits, it can be marked in 
any of the three columns. Blank line number columns are ignored. 
Figure 7-2 shows a card marked with the line number 120. 
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Figure 7-2. Line Number Example 

Line numbers should be marked on cards in the order in which 
program statements are to be executed: the lowest line number on 
the first card, the highest line number (the END statement) on the 
last card. If the cards are not physically ordered by line number 
within the card deck, EduSystem 30 still executes the program in 
line-number order. The only time when the order of the cards is 
important is when two cards have the same line number. In that 
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case, only the last card in the deck which has that line number is 
used in the program. 

BASIC STATEMENTS 

BASIC statement types are marked after the line number, in 
column 4 or 5, within the outlined area. Each box in this area 
represents a single BASIC statement; thus, one mark in the approp- 
riate box indicates the corresponding statement type. It is not nec- 
essary to spell out the statement. Since each statement is marked 
on a separate card, each program card should have only one mark 
in column 4 or 5. In Figure 7-3, the LET box has been marked. 
Line 120 is, therefore, a LET statement. (The implied LET can- 
not be used with card programs. ) 
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Figure 7-3. Statement Example 



STATEMENT OPERAND 

The line number and statement type are marked in specific sec- 
tions of the card. The rernainder of a statement, the statement 
operand, is marked in a different manner in columns 6 through 39. 
The first step in this process is to write the remaining characters of 
the line in the boxes across the top of the card, one character to a 
box, starting in column 6. The boxes below each of these characters 
are then marked with the aid of the BASIC template, as shown in 
Figure 7-4. 
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Figure 7-4. EduSystem 30 BASIC Template 

The template has a column of holes down the center with the 
characters used in writing an operand printed on either side. All 
characters are printed twice on the template, once on the left and 
once on the right. The top hole in the template corresponds to the 
blank boxes at the top edge of the card where the characters of the 
operand were written. The bottom pair of holes correspond to 
the row of heavy black marks along the lower edge of each card. 
The twelve holes in between correspond to the twelve boxes in 
each card column. 

The following procedure is used to mark the statement operand 
characters: 



l\ Place the template on the card so that the character to 
be marked appears in the top box of the template and the 
two black marks appear in the bottom pair of holes. 

2. If the character is a digit (0 to 9), find that digit on 
either side of the template and mark the one box which 
is beside that digit. 

7-21 



If the character is not a digit, find the two occurrences 

of that character on the template, one on the left and one 

on the right. Mark the two boxes which are beside these 

characters. 

If the character is a space, make no marks. 



An example of the marking procedure is shown in Figure 7-5. 
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Figure 7-5. Marking the Statement Operand 

SUMMARY OF CARD MARKING PROCEDURE 
A completed card is marked in three places: 

1. Columns 1 through 3 to mark the line number. 

2. Column 4 or 5 to indicate the BASIC statement type. 

3. Columns 6 through 39 to indicate the statement operand, 
as written across the top of the card. 



Figure 7-6 shows two examples of completed cards. 
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Figure 7-6. Completed BASIC Cards 



Submitting a Program to be Run 

When all statements of a program have been marked on cards, 
the cards are collected into a single deck for submission to the 
computer. However, in addition to the deck of program cards, 
the computer must be given the program name and explicitly in- 
structed to execute the program. Special cards, called control 
cards, are added to program deck for this purpose. Control cards 
are not part of the actual program. They do not have line numbers 
and are placed at the beginning and end of the program deck. 
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THE NEW CARD 

The first card of any deck submitted to the computer must be a 
NEW card or an OLD card 4 (see Using a Stored Program), which 
contains the name of the program. Any cards in a deck which 
come before a NEW, or OLD, card are ignored. If no NEW, or 
OLD, card is included in the deck, the entire program is ignored. 
A NEW card has a single mark in the NEW box in the upper 
left-hand corner of the card. It has no other marks in columns 1 
through 5. The name of the program, which can be 1 to 6 char- 
acters long, is marked using the template and starting in column 6. 
The remaining columns of the NEW card, starting in column 12, 
should be used to mark identifying information such as the name 
of the programmer. 

THE LIST CARD 

When the computer reads a program, it reads the marks in the 
columns rather than the characters printed across the top of the 
card. If the columns below each character are accurately marked, 
the computer reads the card as intended. Erroneous marks, how- 
ever, cause; the computer to read the statements incorrectly. It is 
useful to obtain a printed listing of the program exactly as it 
was read by the computer. The LIST command instructs the com- 
puter to print such a listing. A LIST card contains a single mark in 
the LIST box, the topmost box in column 3. The LIST card 
should be placed after the program deck, immediately before the 
RUN card. 

THE RUN CARD 

Each program deck submitted to the computer must have a 
RUN card following the last program card. A RUN card has a 
single mark in the RUN box, the topmost box in column 2. The 
RUN card is the signal for the computer to execute the program. 
If a program deck has no RUN card, the program is loaded into 
the computer but never executed. The RUN card is normally the 
last card in the deck. 



4 Since the NEW (or OLD) card is the first card in the deck, it is often 
marked on a colored card to make it easy to spot the beginning of sepa- 
rate programs in a stack of many programs. Control cards can be easily 
identified if the system manager runs a felt-tip marker over the tops of a 
box of cards and makes these cards available to students for use as con- 
trol cards. 
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SUMMARY 

A complete program deck, ready to be run by the computer, 
consists of the complete set of program cards preceded by a NEW 
card and followed by a LIST and/or a RUN card. If other con- 
trol cards are being used, they may be inserted as necessary. Con- 
trol cards should be placed before or after the program deck, 
not inserted within it. This complete deck is then submitted to the 
computer operator to be run. (If there is no system operator, each 
student must run his own program through the computer as 
described under Executing Card Programs.) Figure 7-7 shows a 
BASIC program deck. 
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Figure 7-7. BASIC Program Deck 

Getting the Results of a Computer Run 

Whenever EduSystem 30 processes a card program, it prints 
the results of that run on the Teletype. The format of this output 
is as follows: 

1. Beginning of Output- — A row of dashes ( — ) 

is printed to indicate the beginning of program output 
and thus separate each program from the output of the 
previous program. 

2. Identification Line— The information on the NEW card 
is printed at the top of the first page of output. This in- 
formation usually includes the name of the program and 
the name of the programmer. 
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Program Listing — If a LIST card is included directly 
after the program deck, a listing of all statements in the 
program is printed. It is preceded by a header line which 
includes "the name of the program and a short message 
selected by the system operator. 

Program Output — If a RUN card is included at the end 
of the deck, the program is executed. The results of all 
PRINT statements are printed as program output. The 
printed program output is preceded by the same header 
as the program listing. 



Using a Stored Program 

In all previous examples the program to be executed is sub- 
mitted on a card deck. The NEW card at the front of the deck 
indicates that the program to be run is a new one (i.e., a pro- 
gram the computer does not already have stored away) and that 
it is contained in the cards which follow the NEW card. The 
computer is also capable of storing programs for future use. 
Stored programs are considered to be old programs. They do not 
have to be submitted on cards each time they are run. 

An OLD card is used to call a program which has been stored 
in the system previously. The OLD card has a single mark in the 
OLD box in column 1 of the card. All programs stored within 
the system have names. The name of the old program to be used 
must be marked starting in column 6. The user must be certain 
to use exactly the same program name as he used when he first 
identified the program. For example, blanks which preceded the 
program name or appear in the name itself must be included. The 
OLD card is used instead of a NEW card; it is, therefore, the first 
card in the deck. Like the NEW card, it should have identifying 
information coded in the columns after the program name. (Like 
the NEW card, OLD is often marked on a colored card.) 

Since the program is already stored in the system, the OLD 
card need not be followed by a program deck. The next card 
can be the RUN card. Two cards, an OLD card followed by a 
RUN card, are all that is needed to run a stored program. If the 
user wishes to supply some of his own input data to an OLD 
program, this data is marked as regular DATA statement cards. 
These DATA cards are placed between the OLD card and the 
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RUN card. They are merged into the stored program before it is 
executed. 5 

Interacting With the Operator 

If card programs are being run under the supervision of a sys- 
tem operator, he may be requested to perform certain functions, 
such as entering data or making minor modifications to the 
program. 

An OPR card is used to communicate with the operator. An 
OPR card has a single mark in the OPR box in column 4 of the 
card. Any message can be marked in columns 6 through 39. When 
an OPR card is encountered in a program deck, the message in 
columns 6 through 39 is printed and a bell rings to alert the 
operator. 

Normally, the OPR card is used to request the operator to per- 
form some function which a card user cannot perform directly. 
Operations such as saving programs in the system storage area 
can only be done by typing commands at the Teletype. 

A KEY card is used to have the computer pause so that the 
operator can type one or more commands. The KEY card con- 
tains a single mark in the KEY box in column 2 of the card; it 
should be the last card in the deck. KEY should, of course, be 
preceded by one or more OPR cards, telling the operator what 
to do when the computer pauses. For example, BASIC programs 
can request data from the operator. An INPUT statement is used 
to request data from the Teletype, such as the current date. 

Editing and Rerunning a Program 

After a program has been executed by means of a RUN card, 
it is still available iri core memory and may be modified and/or 
run a second time. New lines, or new data, may be added to the 
program, or may replace existing program statements. Any pro- 
gram lines to be added should follow the first RUN card. After 
these new cards, a second RUN card should be included. The 



5 The DATA statements submitted on cards must have line numbers which 
differ from the line numbers of the stored program. Otherwise, these 
DATA statements will replace program statements. Also a stored pro- 
gram which is to be used with card data should have no DATA state- 
ments of its own. 
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number of RUN cards allowed per deck is set by the system 
operator and is normally two. 

Inserting Messages in the Program Printout 

One line messages can be inserted into program output by 
using an MSG card. An MSG card has a single mark in the MSG 
box in column 3 of the card. Columns 6 through 39 can contain 
any message. This message is printed as part of the program output. 

Sample Program 

The following sample program demonstrates the use of Edu- 
System 30 as a computational tool by students who have no knowl- 
edge of computer programming. The program is already stored in 
the computer. 

PROBLEM 

Students in a physics class are performing a lab experiment 
whose results require very lengthy data reduction. Rather than 
have each student perform these calculations manually, the in- 
structor wrote a program to do it and stored the program under 
the name LAB37. This program has no line numbers between 
900 and 950. Each student is to prepare a deck containing his 
data, in some predefined order with line numbers between 900 
and 950, and submit it to the computer. 

PROCEDURES 

Each student prepares a deck containing his data and submits 
it to the computer. The decks are prepared in the following manner: 

1. Each student writes his lab data values across the top 
of one or more cards, starting in column 6. Values on any 
one card are separated by a comma. 

2. When all data values have been obtained, the student 
completes the marking of the data cards. The DATA 
box in column 5 of each card is marked. The first card 
is marked with line number 900 in columns 1 to 3. Suc- 
ceeding cards are given line numbers 901, 902, etc. 
Finally, using a template, the student fills in the boxes in 
columns 6 through 39. 

3. An OLD card is marked with a single mark in the OLD 
box, the program name LAB37 in columns 6-10, and the 
student's name after column 1 1 . The OLD card is placed 
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before the data deck. Next a RUN card, with a single 
mark in RUN box is placed behind the deck. These cards 
are then submitted to the computer. 

PRINTED RESULTS 

The following is a sample printout of the results of one student's 
input to the LAB3 7 program : 



OLD LAB37 



A. EINSTEIN 



PHYSICS 1 



RUN 
LAB37 



EDUBASIC 



DATA SET # 1 

SAMPLE SIZE = 12 

SUM = 444 

MEAN =37 

STD. DEVIATION = 7.51665 



DATA SET # 2 

SAMPLE SIZE = 8 
SUM = 32.7 
MEAN = 4.0875 
STD. DEVIATION = • 




EXECUT3H^C4RD PROGRAMS > 

6ncTEduSystem~3T5 has been loaded and started, it is available 
for processing program decks (if the batch capability was retained 
at system load time). It is not necessary to reload or restart the 
system each time it is used. 



Normal Batch Opefat 

Perform the following operations to process batch (multiple : 
programs) of marked cards. Collect all programs to be run into a j 
single deck. Any number of programs may be included so long as j 
the deck fits into the card reader (maximum of 400 cards). { 

1. Arrange all cards so that they face in the same direction, j 

2. Place the deck in the reader, face down with the row. of j 
black marks on the bottom of each card placed inward ! 
toward the back of the reader. O^C 
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3. Ensure that the reader power switch is ON, then press 
the START button. At this time, all red lights on the 
card reader control panel should be off; the single green 
light should be on. 

4. Type BATCH. The BATCH command is used to com- 
mence processing of the entire batch of programs loaded 
into the reader. 

Once a batch run is initiated, it continues until all cards have been 
processed. EduSystem 30 then asks: 

MORE CARDS? 

5. Type N if no more programs are to be executed during 
this run. EduSystem 30 concludes the batch run by typing 
READY. If more programs are to be executed, con- 
tinue at step 6. 

6. Place the additional program cards in the reader, then 
press START. Respond to the MORE CARDS? question 
by typing Y. The batch operation restarts. 

All output from a batch is printed at the Teletype (or possibly 
on a line printer, see Using Optional Hardware). The output of 
individual programs is separated by rows of dashes ( ). 

Executing Card Programs Individually 

EduSystem 30 may be used as a system in which each user 
loads and executes his own card program. The system is started 
exactly as it is for a batch run; the BATCH command is typed, 
even though no cards are in the reader. The system, finding no 
cards, asks: 

MORE CARDS? 

At this time the system is ready to accommodate a single user 
with a card deck. The single user can proceed with the operating 
procedures described under Normal Batch Operation. When all* 
cards have been processed, the system again asks: 

MORE CARDS? 

7-30 



The user may then tear off his program output and leave the sys- 
tem ready for the next user. 

Controlling a Batch Run 

A batch operator may control the execution of card programs. 
CTRL/C may be typed at any time to terminate a program run 
and automatically continue with the next program. CTRL/C does 
not interrupt the loading of a program, only its execution or list- 
ing. When CTRL/C is used to terminate program execution, the 
message STOPPED BY OPERATOR is printed. 

The ALT MODE key (labeled ESC on some terminals) may 
be used to interrupt the system while it is reading cards (i.e., halt 
the batch operation) and allow the operator to type commands 
at the Teletype. The operator can then type BATCH to begin 
processing of the next program in the deck. 

Several optional commands (BATCH, MAX, HEADER, 
STACK, and LOG) are available to modify and control a batch 
run. All of these commands are privileged commands (see Privi- 
leged Control Commands). They can be used only if privileged 
command capability was retained at system load time and if the 
user knows the correct password. 

BATCH COMMAND 

In the privileged mode, the BATCH command may be followed 
by a single space and an integer which is less than 4000. For 
example: 

BATCH 20 

This number is tbj; maximum number of RUN commands which 
may be executed by any single program deck. If privileged com- 
mands are not enabled or if no number is specified, the BATCH 
command is executed and 2 is the number of RUN commands 
(cards) allowed per program. 

\ MAX COMMAND 

Occasionally, a program is submitted which does not terminate. 
It will run indefinitely (in a loop) and delay the execution, of 
other programs until the operator stops it. The MAX command 
can be used to automatically terminate programs which run too 
long. MAX defines the maximum number of BASIC program 
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statements which may be executed in a program. The system 
counts instructions in units of 200. Thus, the limit set by the 
MAX command is the number of 200 instruction units which are 
allowed per program. If very small programs are being run, a 
MAX of 10, allowing execution of 2000 statements, is reasonable. 
This command is typed as follows: 

MAX 10 

More complex programs need to execute more than 2000 state- 
ments. In this case, a correspondingly higher limit should be set. 
If no MAX is set, or if the operand of MAX is 0, programs may 
be run indefinitely. A MAX limit is only in effect for the suc- 
ceeding batch run. If the program being run executes a CHAIN 
instruction, the instruction count is restarted. 

HEADER COMMAND 

Before running or listing a program, the system prints a header 
line consisting of the name of the program followed by the message 
EDU BASIC. The HEADER command may be used to change 
this message to any new header composed of 1 to 12 characters. 
The new header is then used for all programs in the next batch 
run. Thus, this command can be used to identify the programs in 
that batch. For example, if a batch consists of all the programs 
from a given class, the name of the class or of the instructor might 
be used for the header. To use the HEADER command, type 
HEADER and press RETURN; then type the new header message 
and press RETURN again. For example: 

HEADER 
PHYSICS 101 

STACK COMMAND 

The KEY command and the INPUT statement may be used by 
a card program to interact with the operator, as described pre- 
viously. When a batch is being processed unattended, these com- 
mands stop program execution. Therefore, the STACK command 
is available to start up an unattended batch run. The STACK 
command makes all INPUT and KEY instructions illegal and 
causes processing of card programs to begin. Like the BATCH 
command in privileged mode, the STACK command may be fol- 
lowed by a space and an integer which specifies the number of 
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RUN commands allowed per program. For example, if the STACK 
command is typed as: 

STACK 4 

it allows any program to be executed four times. This number is 
2 by default if not explicitly specified or if the system is not in 
privileged mode. Execution of BATCH, STACK, NEW, or OLD 
commands automatically locks out the privileged instructions. Sub- 
sequent privileged instructions must be preceded by a successful 
PRIVILEGE command. 

LOG COMMAND 

As programs are run, a system log is created which contains 
a record of all the programs which have been run. More specif- 
ically, the log retains all information included on the NEW or OLD 
card which precedes each program deck. NEW or OLD cards 
generally contain such information as the name and class of the 
student who submitted the program. The privileged command LOG 
may be used to obtain a printed listing of this log. 

If a very large number of programs are run before the log is 
printed, or if the amount of space reserved for the log when the 
system was loaded is small, the log may become full; if this hap- 
pens, the log is automatically printed at that time without a LOG 
command being given. F 'X 

Hands-On Interaction Versus Batch " 

If the user wishes to get maximum throughput of student pro- 
grams, he should use the STACK command. However, if the 
user wishes to allow hands-on student interaction with a high 
throughput, he uses the BATCH command and implements the | 
plan outlined below. I 

Most student interaction in programming occurs during debug- | 
ging. The EduSystem 30 BATCH command allows the user to 
mix hand-on use with high throughput. Typing BATCH with no 
following number allows each program to be run a maximum of 
two times. A programming class use of EduSystem 30 is op- 
timized by entering cards in the following order: 

NEW program name student, class 
card deck 
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LIST card 
RUN card 
KEY card 

EduSystem 30 reads the deck, lists the program, and attempts 
execution. The student's error messages print at this time, if errors 
occur, and the KEY card allows the student to sit down at the 
terminal and correct the errors on-line. When errors have been 
corrected, the student types his second RUN,, getting his second 
attempt at execution. Upon completion of the second RUN, Edu- 
System 30 automatically reads the next student's cards. 

This use of BATCH with the KEY cards allows each student 
two successive attempts at a successful RUN and brings much 
of the excitement of interaction into the EduSystem 30 batch 
operation. 

ERROR MESSAGES 

Some programs execute correctly the first time they are tried. 
Most others, especially if they are at all complex, have errors in 
them. EduSystem 30 checks all statements and commands when 
they are entered (on cards or from the interactive terminal) and 
before executing them. If it cannot execute a statement or com- 
mand, the system informs the user by printing one of the following 
types of messages. 

Batch Mode Program Loading Errors 

The following messages are printed if errors occur while BASIC 
is loading a card program. 

Message Explanation 

BAD CHARACTER One or more characters on a card were not 

understood. The character % replaces any 
unreadable character. The information on the 
card is processed if possible. This error does 
not cause any subsequent RUN commands 
, to be ignored. 

BAD CHARACTER— Same as BAD CHARACTER message except 

LINE NOT USED that the information on the card is ignored. 

This error does cause subsequent RUN com- 
mands to be ignored. 

WHAT? Line does not make sense to the system. It 

does not begin with a line number and is not 
a valid system command or statement: 

7-34 



Message 
NO ROOM 



FILE NOT SAVED 

FILE TOO BIG 
FOR BATCH MODE 



Explanation 

The program is too large to be loaded, i.e., 
it is greater than 5000 characters. Larger pro- 
grams should be run in interactive mode or 
CHAINed. 

The program named on an OLD control card 
is not available in the system storage area. 
The program named on an OLD card is too 
large to be run in batch mode. It must be run 
interactively. 



Interactive Mode Program Loading Errors 6 

As each line is typed, EduSystem 30 checks it for program load- 
ing errors. If it finds an error, it prints one of the following error 
messages immediately after the erroneous line. 



Message 



WHAT? 



LINE NO. TOO BIG 

LINE TOO LONG 

NO ROOM 

FILE NOT SAVED 



NO SPACE 

Bell 

I/O ERROR 



INVALID 
PASSWORD 



Explanation 

Line does not make sense to the system. It 
does not begin with a line number and is not 
a valid system command. 
The line number of a line or the argument of 
a system command is greater than 4095. 
Line just entered is longer than 80 characters. 
There is no room to store the line just entered. 
The program named as the operand of an 
OLD command was not previously saved on 
the system device. 

There is not enough space on the DECtape 
to SAVE the current program. 
If an invalid character is entered, the Tele- 
type bell rings and the character is ignored. 
An input or output error occurred on the 
DECtape unit. Be sure that the unit is on-line, 
write-enabled, and the unit number is set cor- 
rectly. Retry whatever was interrupted by the 
error. If the problem persists, there is a hard- 
ware problem. Contact the system adminis- 
trator or DEC field service. 
The password typed after a PRIVILEGE 
command is not the system password. Privi- 
leged mode is not entered. 



6 To correct program loading and coding errors indicated by these messages, 
the appropriate line in the program must be corrected in the manner de- 
scribed in the Program Editing section, Procedure 2. 
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Coding Errors 7 

After the RUN (or RUN NH) command is entered, EduSystem 
30 checks each statement before executing it for mistakes in the 
BASIC program coding. If the system cannot execute a statement, 
it informs the user by printing one of the following messages and 
the line number in which the error was found. 



Message Explanation 

CH There is an illegal character in the line. 

'EN Program does not have an END statement as the last line 

in the program. 
FN Not enough NEXT statements in the program. There must 

be a NEXT statement for each FOR statement in the pro- 
gram. 
FO FOR and NEXT statements do not match. There is a 

NEXT statement in the program whose variable is not the 

same as the variable in the corresponding FOR statement. 
LI Line contains an improperly written decimal number or 

constant. It may, for example, have two decimal points or 

have an alphabetic character in it. 
Ml The program as a whole is too big to be run by the sys- 

M2 tern. Making the program smaller, reducing the size of 

subscripted variables, or using the NOLINE command 

may help. 
NE Program has too many (more than 8) FOR-NEXT loops 

one within another. 
PC Line contains an improperly used parenthesis. Generally, 

the problem is an expression which does not have an equal 

number of left and right parentheses. 
RO Statement contains an invalid relational operator. (<, =, 

>, <=, >=). Relational operators may only be used in IF 

statements. 

51 Statement as a whole is not properly written and, as a re- 

52 suit, does not conform to proper BASIC syntax. For ex- 
ample, a semicolon is allowed in a PRINT statement but 
not in a READ or INPUT statement. 

ST Statement word is not one of the legal BASIC statement 

types. 

TB The program is too big to be run. Cause is usually an ex- 

tremely large number of PRINT statements. 



7 To correct the program loading and coding errors indicated by the 
messages, the appropriate line in the program must be corrected in the 
manner described in the Program Editing section, Procedure 2. 

7-36 



Message Explanation 

TO Program is either too large or too complex to be run. The 

total number of variables, constants, functions, and line 

numbers should be reduced, if possible. 
UL A GOSUB, GOTO, or IF statement contains a line number 

which does not exist. 
UQ A quotation mark indicating the beginning of a istring of 

text does not have a corresponding quotation mark at the 

end of the text string. 

Program Logic Errors 8 

Some errors do not show up until the program is actually exe- 
cuted. An example of this type of error is an expression which uses 
a square root of a variable. If, when this square root is actually 
calculated, the variable has a negative value, a program logic error 
has occurred. EduSystem 30 prints the following messages if pro- 
gram logic errors occur. 



Message Explanation 

CH A CHAIN statement tried to chain to a program which 

was not available in the DECtape storage area. 

CO Program ran too long and was automatically stopped by 

the system. 

DA The program ran out of data. It attempted to do a READ 

after all data had been read. 

DO The program attempted to divide by zero. Instead of divid- 

ing by zero, BASIC divides by the smallest possible num- 
ber, giving a result of about 10 500 . This error does not 
cause the program to stop. 

FN An expression contains a function which was not defined 

in a DEF statement. 

GS The program is too complex to be executed. The problem 

is generally that too many subroutines have themselves 
executed GOSUB instructions. 

LG Program attempted to take the logarithm of a negative 

number or zero. 

RE A RETURN statement was used outside of |a subroutine 

or a subroutine was entered by a GOTO instead of a 
GOSUB. 

SP See GS. 



8 Some program logic errors may be corrected by the method described 
in the Program Editing section, Procedure 2. Most, however, necessitate 
the rewriting of the program. • 
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Message Explanation 

SQ Program attempted to take the square root of a negative 

number. BASIC automatically takes the square root of the 
absolute value of the number instead. This error does not 
cause the program to stop. 

SS Program used a subscript which was too big for the vari- 

able. The maximum size of a subscript is specified in a 
DIM statement. 

WR There is no room to write data. The program attempted to 

do a WRITE statement when the data list was full. (Note 
that if this error occurs, the program text will no longer 
be intact. A NEW, OLD, or SCRATCH command must 
be used to clear the program area. ) 

OPERATING INSTRUCTIONS 
Loading EduSystem 30 

The EduSystem 30 software is supplied on a paper tape. This 
tape must be loaded into computer memory when the system is first 
installed. Once loaded, the software need not be reloaded. Perform 
the following procedures to load the EduSystem 30 software. 

INITIALIZE THE DECDISK 

If the system device is DECdisk, perform the following steps to 
prepare the disk for software loading: 

1. Ensure that the disk unit is on (red light illuminated in- 
side the back of the computer cabinet) . 

2. Ensure that all disk protect switches (located inside the 
front of the computer cabinet) are in the off (down) 
position. 

INITIALIZE THE DECTAPE UNIT 

If the system device is a DECtape unit, perform the following 
steps to prepare the unit for software loading. 

1. Set the REMOTE/OFF/LOCAL switch to OFF. 

2. Place a DECtape on the left spindle with the DECtape 
label out. 

3. Wind four turns of tape onto the empty reel on the right 
spindle. 

4. Set the REMOTE/OFF/LOCAL switch to LOCAL. 

5. Wind a few turns of tape onto the right spindle reel with 
the -» switch to ensure that the tape is properly mounted. 
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6. Dial on the unit selector dial. 

7. Set the REMOTE/OFF/LOCAL switch to REMOTE. 

8. Set the WRITE ENABLE/WRITE LOCK switch to 
WRITE ENABLE. 

INITIALIZE COMPUTER MEMORY 

The EduSystem 30 software tape may be loaded into memory in 
one of two ways: with an automatic loader (hardware bootstraps) 
or with the Read-In Mode (RIM) loader program. The following 
loading instructions are for an EduSystem 30 that includes a hard- 
ware bootstrap. If the EduSystem does not have a hardware boot- 
strap, see Appendix A for instructions on using the RIM loader. 

1 . Turn the key lock on the computer console to POWER. 

2. Turn the Teletype to LINE. 

3. Place the EduSystem 30 tape in the appropriate reader 
(high-speed or Teletype) with the leader code (ASCII 
200) over the read head. 

4. Set the SWITCH REGISTER (SR) to 5356 (octal). 9 

5. Press and raise the HALT switch. 

6. Turn on the appropriate paper tape reader. 

7. Press and raise the SW switch. 

The tape should begin to move. If it does not, ensure that the 
correct tape is being used and that tape is positioned over the read 
head. Repeat the above procedures. 

System Building Dialog 

When a portion of the EDUSYSTEM- 30 paper tape has been 
read, BASIC prints a series of questions (see Figure 7-8) con- 
cerning the system configuration. The user responds by typing Y 
for yes and N for no, followed by the RETURN key. The first 
question is : 

STANDARD SYSTEM? 

EduSystem 30 has several optional operating modes and may be 
used with a variety of hardware components. A response of Y to 
the above question causes EduSystem 30 to build a system as it 



9 An explanation of the octal, or base 8, number system is included in 
Introduction to Programming 1972. 
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would if the following answers were given to the other system 
building questions : 



IS SYSTEM DEVICE A DF32 DISK7Y 

HOW MANY DISKS? 1 

DO YOU WANT BATCH CAPABILITIES? Y 

HOW MANY BLOCKS FOR LOG? 6 

BATCH INPUT ON PUNCHED CARDS7N 

DO YOU WANT PRIVILEGED COMMAND CAPABILITY7Y 

TYPE INITIAL PASSWORD (EDU-BASIC) 

DO THE FOLLOWING EXIST: 

HIGH-SPEED PUNCH7N 

LP08 PRINTER7N 



Basic then asks: 

PROGRAM LIBRARY INITIALLY EMPTY? 

The user responds Y if there are no programs to be saved on the 
system device. If programs are to be saved, the response must be 
N and the questions in boxes 1 through 8 of Figure 7-8 must be 
answered in the same way as when the system was built. 

If the user types N in response to the question STANDARD 
SYSTEM?, EduSystem 30 recognizes that a nonstandard system is 
being loaded and asks the following questions: 

IS SYSTEM DEVICE A DF32. DISK? 
*TC01 DECTAPE? 
RF08 DISK? 
LINCTAPE? 
TD8E DECTAPE? 

This series of questions is asked only until a response of Y is 
typed. If the device being described is not the one being used in 
the system, the user responds by typing N. If the system device is 
a disk, either DF32 or RF08, the system asks: 

HOW MANY DISKS? 

The user responds by typing the number of disk surfaces available 
in the system (1, 2, 3, or 4) and then typing the RETURN key. 
If the system device is TD8E DECtape, the system asks: 
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DO YOU HAVE A TD8E ROM? 

Respond Y if the system has a TD8E Read-Only Memory. If the 
response is N, the system asks: 

8K OF CORE? 

If the system device is DECtape, the system must include either 
a TD8E ROM (TD8E DECtape only) or 8K of core memory. If 
the response to the previous question was Y, this question is not 
asked. 

EduSystem 30 then asks: 

DO YOU WANT BATCH CAPABILITIES? 

If. the system is to process card programs, respond Y. If it is only 
to be used as an interactive system, respond N. If batch capability 
is selected, the system then asks: 

HOW MANY BLOCKS FOR LOG? 

The log is a stored record of system usage which records the 
name of all programs submitted for execution. The larger it is., the 
more program runs may be recorded before the log becomes full 
and must be printed. The log may be from (no log at all) to 22 
blocks of disk storage. Each block will hold the record of approxi- 
mately 10 to 20 programs. Respond by typing the number of blocks 
to be reserved for the batch log, then typing the RETURN key. The 
system then asks: 

BATCH INPUT ON PUNCHED CARDS? 

Respond N if the batch input is to be coded with the EduSystem 
30 template on the standard 39-column EduSystem 30 mark-sense 
cards. Respond Y if input will be on cards punched using a key- 
punch. 

The system then asks: 

MAXIMUM DATA COLUMNS PER CARD? 
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The maximum allowable response to this question depends upon 
the type of reader used: the punched-card reader has a maximum 
of 80 columns per card; the mark-sense reader maximum is 40 
columns per card. See Using Optional Hardware for more infor- 
mation on preparing cards using a keypunch. 
Next, the system asks: 

DO YOU WANT PRIVILEGED COMMAND CAPABILITY? 

The privileged command capability prevents unauthorized users 
from executing certain critical system commands. To establish this 
protection, type Y. 

The system then prints: 

TYPE INITIAL PASSWORD 

The password is a special code which must be known in order to 
use privileged commands. It is up to six characters long. Respond 
by typing the desired system password. If it is less than six char- 
acters, type the RETURN key after the last letter of the password. 
To protect their secrecy, the characters typed are not printed. If 
no privileged capability is desired, the response to the original 
question is N. (A standard system keeps the privileged capability 
and sets the initial password to BASIC. ) 

Finally, the system asks if a high-speed paper tape punch and/ or 
line printer are part of the system by printing: 

DO THE FOLLOWING EXISTS 
HIGH-SPEED PUNCH? 
LP08 PRINTER? 

The response to each question must be Y if the device exists, N 
if it does not. A standard system assumes that neither device exists. 
(See Using Optional Hardware for a discussion of how these de- 
vices are used. ) 

When all questions have been answered, the system asks: 

IS THE ABOVE CORRECT? 

If all questions were answered properly, type Y. The system then 
loads the rest of the EduSystem 30 paper tape. If any of the re- 
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sponses were incorrect, type N; the complete set of questions is 
repeated. 

When the entire tape has been read, EduSystem 30 gives the 
user a chance to load additional DEC-supplied system update tapes 
by asking: 

MORE INPUT? 

If no DEC-supplied update tapes exist, respond N and EduSystem 
30 is completely loaded. If update tapes do exist, load the first 
one into the tape reader and type Y to obtain loading. 

Finally, when all input has been read, EduSystem 30 indicates 
that it is ready to process BASIC programs by printing: 

READY 

At this time, turn the key lock to PANEL LOCK and remove the 
key to prevent the system from being accidentally disturbed. 

DIAGNOSTIC MESSAGES DURING SYSTEM BUILD 

The following error messages are printed when errors are de- 
tected during the building of EduSystem 30. 

TAPE READY? 

This message is printed whenever the system is waiting for the 
paper tape reader to be loaded. It may appear by itself, usually 
due to a tape tear or reader jam, or it may appear as the last line 
of another diagnostic message. 

ACTION: 

1. The portion of the paper tape which is read after the 
system building dialog has distinct blocks of information 
about two and one-half tape fanfolds long. The start of 
such a block is indicated by nine blank tape frames fol- 
lowed by a frame with all positions punched. 

Back up the tape several fanfolds to the beginning of a 
previously read block. Position the tape such that the 
blanks at the beginning of the block are over the read 
station. 

2. Type Y on the interactive terminal. 
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Figure 7-8. System Building Dialog 



7-44 



10. 



t>0 YOU 

WANT BATCH 

CAPABILITIES^ 

? 

fYES 



HOW 

"MANY BLOCKS^ 

FOR LOG 

? 



,N0 



[0-22 



H /-"BATCH 

HNPUTON PlJNOPN^i- 



ED CARDS. 
? 

Iyes 



12 /TtfAXIN 

'DATA COLUMNS"" 
J>ER CARD 
? ^ 

'-80 







13/ 


"^DOYOUWANTV. 
PRIVILEGED ^v 
COMMAND ^ 
OSAPABILITY.^ 




JYES 


14, 


/TYPE^v. 

INITIAL > 
s.PASSWORD/^ 


15 >^ 


/dothen^. 
following ^x^ 

EXIST ^* 
HIGH-SPEED ^ 
v. PUNCH ^S^ 




|YES OR NO 


16, 


/lposX. • 

PRINTER > 
s. ? ./^ 




7TYFR ClR NT) 


17 


/PROGRAM^. 

LIBRARY \ 
n. INITIALLY ^ 
^sEMPTY/^ 




JYES OR NO 



NO 



Figure 7-8 (Cont.). System Building Dialog 
7-45 




BEGINS READING 

TAPE AND 
BUILDS SYSTEM 




WHEN TAPE 

IS READ, 

TYPES "READY" 



READS IN 

-ADDITIONAL 

INPUT 



Figure 7-8 (Cont.). System Building Dialog 



7-46 



BAD PLACE TO START TAPE 
TAPE READY? 

This message means that after a previous message the user did 
not correctly position the tape to the beginning of a data block. 
( See discussion under TAPE READY? message. ) 

ACTION: 

1 . Correctly position the tape. 

2. Type Y on the interactive terminal. 

CHECKSUM ERROR 
TAPE READY? 

A checksum error occurred while the most recent data block 
was being used. 

ACTION: 

1 . Back up the tape to the beginning of the block. 

2. Type Y to reread the data. 

SYSTEM DEVICE I/O ERROR 

If this message occurs before the dialog has been completed, the 
dialog automatically restarts. 

If an I/O error occurs after the dialog is completed, the TAPE 
READY message is printed. 

ACTION: 

1. Make sure that the system device is on-line and write- 
enabled and that the unit number is set correctly. 

2. Respond appropriately to the question which follows the 
message. 

Turning Off the System 

If power failure detection is available on the EduSystem 30, 
simply turn the console key lock to OFF. Otherwise, to shut the 
system down, overnight or for any reason, ensure that the system 
is inactive by: 
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1. Typing CTRL/C to stop any program that is running. 

2. Turning the key lock to POWER, and pressing and raising 
the HALT switch. 

3. Turning the key lock to OFF. 

NOTE 

Turning off the computer does not turn off 
the disk unit. Disk power should never be 
turned off. 

Turning On the System 

If power failure detection is available on the EduSystem 30, 
simply turn the key lock to PANEL LOCK. Otherwise, perform 
the following procedures. 

1. Ensure that the hardware is properly initialized as ex- 
plained previously. 

2. Turn the key lock to POWER. 

3. Set the SR to 0000 and press EXTD ADDR LOAD. 

4. Set the SR to 7600 and press ADDR LOAD. 

5. Turn the Teletype to LINE^ 

6. Turn the key lock to PANEL LOCK. 

EduSystem 30 is now ready to process BASIC programs. 

Restarting EduSystem 30 

If EduSystem 30 has been loaded onto the system device but the 
computer memory has been used to run other programs (which do 
not write on the system device), then the following device-de- 
pendent programs may be used to start up the system. Instructions 
for these programs are given in octal numbers. If unfamiliar with 
the octal, or base 8, number system, refer to Introduction to Pro- 
gramming 1972. 

DF32 OR RF08 DISK 
With hardware bootstrap: 

1 . Press and raise the HALT switch. 

2. Set the SR to 5350. 

3. Press and raise the SW switch. 

Without hardware bootstrap: 
' 1. Press and raise the HALT switch. 
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2. Set the SR to 7750 and press ADDR LOAD. 

3. Set the SR to 7600 and lift DEP. 

4. Set the SR to 6603 and lift DEP. 

5. Set the SR to 6622 and lift DEP. 

6. Set the SR to 5352 and lift DEP. 

7. Set the SR to 5752 and lift DEP. 

8. Set the SR to 7750 and press ADDR LOAD. 

9. Press the CLEAR switch, then the CONT switch. 

TC01 DECTAPE 

With hardware bootstrap: 

1. Press and raise the HALT switch. 

2. Set the SR to 0600. 

3. Press and raise the SW switch. 

Without hardware bootstrap : 

1. Press and raise the HALT switch. 

2. Set the SR to 7742 and press ADDR LOAD. 

3. Set the SR to 1353 and lift DEP. 

4. Set the SR to 6766 and lift DEP. 

5. Set the SR to 6771 and lift DEP. 

6. Set the SR to 5344 and lift DEP. 

7. Set the SR to 1 352 and lift DEP. 

8. Set the SR to 5343 and lift DEP. 

9. Set the SR to 7752 and press ADDR LOAD. 

10. Set the SR to 0220 and lift DEP. 

11. Set the SR to 0600 and lift DEP. 

1 2. Set the SR to 7577 and lift DEP, then lift DEP again. 

13. Set the SR to 7742 and press ADDR LOAD.: 

1 4. Press the CLEAR switch, then the CONT switch. 

TD8E DECTAPE 
With TD8E ROM: 

1 . Press and raise the HALT switch. 

2. Set the SR to 7470. 

3. Press, in order, the ADDR LOAD, EXTD ADDR LOAD, 
CLEAR, and CONT switches. 

Without TD8E ROM: 

1 . Press and raise the HALT switch. 
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2. Set the SR to 0011. 

3. Press the EXTD ADDR LOAD switch. 

4. Set the SR to 7470 and press ADDR LOAD. 

5. Press the CLEAR switch, then the CONT switch. 

Using Optional Hardware 

LP08 LINE PRINTER 

If the EduSystem 30 includes an LP08 line printer, perform the 
following procedures to produce output on the line printer rather 
than at the Teletype. 

1. Turn the LP08 power switch to ON. 

2. Turn the ON-LINE/OFF-LINE switch to ON-LINE. 

3. Type LPT and press RETURN. 

4. When printing is complete, type TTY and press RETURN. 

5. Turn the LP08 power switch to OFF. 

An LPT command causes all subsequent output associated with 
LIST, LOG, RUN, CATALOG, BATCH, or STACK commands 
to be printed on the LP08 printer. A TTY command returns con- 
trol to the Teletype from the line printer. The user may tempo- 
rarily interrupt printing by turning the ON-LINE/OFF-LINE 
switch to OFF-LINE; he may continue printing by turning it to 
ON-LINE. When batch processing terminates, the output device 
is automatically reset back to the Teletype. 

HIGH-SPEED PAPER TAPE READER/PUNCH 

If a high-speed punch is available, the PUNCH command may 
be used to punch the current program on paper tape. PUNCH 
may be used with or without an argument. It is similar to LIST in 
that the entire program is punched if no argument is used and, if 
an argument is used, only those lines numbered greater than or 
equal to that argument are punched. Perform the following pro- 
cedures to use the high-speed punch: 

1. Turn the TTY control knob to LINE. 

2. Turn the high-speed punch ON. 

3. Press FEED to produce some leader tape. 

4. Type PUNCH and press RETURN. 

5. When punching is complete, press FEED to produce some 
trailer tape. 

6. Turn the high-speed punch OFF. 
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Punching may be stopped at any time by typing CTRL/C. 

If a high-speed reader is available, the TAPE command may be 
used to load BASIC programs previously punched on tape. Perform 
the following procedures to use the high-speed reader: 

1. Turn the high-speed reader ON. 

2. Turn the TTY control knob to LINE. 

3. Insert tape in the reader. 

4. Type TAPE and press RETURN. 

5. When the tape has read in, turn the high-speed reader 
OFF. 

6. Type KEY; press RETURN. 

A KEY command returns control to the Teletype. 

PUNCHED CARD INPUT 

Programs loaded and run via the card reader may be prepared 
using a standard DEC 029 keypunch or be marked with a lead 
pencil and the EduSystem 30 template. If punched cards are used, 
the system building dialog questions must be answered appropri- 
ately. 

Punch program statements on cards just as if they were being 
typed at the interactive terminal. The seven control commands 
(NEW, RUN, LIST, OLD, KEY, MSG, and OPR) available in 
batch mode are used by punching the command name starting in 
column 1 . Information normally marked starting in column 6 must 
begin in column 5. 

The number of data columns on each card which is read by 
EduSystem 30 is specified in the system building dialog. Thus the 
system can be made to ignore the latter portion of a batch input 
card. These ignored columns then may be used to hold sequence 
numbers or other information which will not be processed by 
EduSystem 30. 

Programs punched with a keypunch may be read by either the 
regular DEC punched card reader (CR8 series) or the DEC 
mark-sense reader (CM8 series). With the punched card reader, 
standard 80-column cards may contain up to 80 columns of data. 
Cards to be read by the mark-sense reader must be; punched on 
cards which have the special marks along the bottom edge of the 
card and which conform to other rigid specifications. 

The mark-sense cards may be made to contain up to forty 
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columns of data per card. The simplest, and recommended, method 
for using punched mark-sense cards involves using the standard 
EduSystem 30 cards. Ignore the information printed on the card. 
Prepare a keypunch drum card which will cause the punches to 
occur only in keypunch columns 1, 3, 7, 11, 13, ... , that is in 
all the odd numbered columns except column 9. All other columns 
should be automatically skipped. The user may now punch Edu- 
System 30 cards as if they were normal cards. The drum card will 
correctly position the punches. Note that the BASIC commands 
must be punched in their entirety. 

CALCULATING AVAILABLE STORAGE 

The number of storage blocks initially available on the system 
device is calculated according to the following rules: 

1. System Device Available Blocks 

DF32 Disk 131 

DECtape 1 348 

RF08Disk 1922 

LINCtape 1348 

2. If batch capabilities are included in the system, subtract 10 
blocks from the basic number of blocks. If the number of 
blocks specified for use by the batch log is greater than one, 
subtract one less than that number from the current total. 

3. If the system device is a disk and the hardware configuration 
includes more than a single disk surface, add the appropriate 
number of blocks for each additional disk surface. 

System Device Available Blocks * 

DS32 255 

RS08 2046 
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edusystem 40 

INTRODUCTION 

EduSystem 40 offers a combination of the language capabilities 
of EduSystem 20 and EduSystem 30 by allowing the user to ran 
either system, but not both simultaneously. The purchaser of an 
EduSystem 40 is obtaining an extremely versatile system — one 
which can accommodate not only a large and varied number of 
users, but a tremendous number of program runs per day. Work- 
ing with EduSystem 20, the beginning student, who is unfamiliar 
with a computer system and who may be learning a computer lan- 
guage for the first lime, can develop his skills while as many as 
seven other students may also be using the system at equal or 
more advanced levels of learning. If the problem is complex or the 
student desires the use of commands not present in EduSystem 20, 
then EduSystem 30 is available as a stand-alone system. In ad- 
dition, using the batch capabilities of EduSystem 30 permits ex- 
tremely large numbers of user programs on cards to be executed 
every day. 

With the varied services provided by EduSystem 30 and, alter- 
nately, the time-sharing capabilities of EduSystem 20, the user 
obtains a complete system which can be put to use continuously 
for maximum productivity. 

System Components 

EduSystem 40 is composed of a PDP-8/E computer with 8192 
words of core memory (12,288 words of core memory are recom- 
mended if the system includes 5 or more terminals); automatic 
loader (MI8-EF or MI8-EG hardware bootstrap, MI8-EC for 
TD8-E DECtape with ROM); 32,768 word DECdisk (DF32 
or RF08) or DECtape; optical mark sense card reader; and as 
many as eight Teletype terminals with low-speed paper tape reader 
and punch units. Each EduSystem 40 contains two BASIC Lan- 
guage processors (EduSystem 40-20 and EduSystem 40-30) and 
a library of sample programs, textbooks and curriculum guides. 
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Optional components include a high-speed line printer, high-speed 
paper tape reader and punch, and additional core memory to in- 
crease program size. 

System Expansion 

By adding 4096 words of core memory; a high-speed paper 
tape reader; 262,000 word DECdisk and control; additional com- 
puter terminals and their associated interfacing; and an EduSystem 
50 software set, EduSystem 40 may be expanded to EduSystem 50. 
(Chapter 9 provides information concerning the EduSystem 50 
TSS-8 time-sharing system. ) 

If the system includes DECtape, the PDP-8 Operating System 
(OS/8) may be run. This system contains a keyboard monitor, 
machine language assemblers, debugging tools, and FORTRAN, 
and is described in Chapter 9 of Introduction To Programming 
1972. 

BASIC LANGUAGE CAPABILITIES 

Advantages and Applications 

EduSystem 40 provides the user with two BASIC systems — 
EduSystem 40-20 and EduSystem 40-30. Both systems are fairly 
compatible in language capabilities— they share a large number of 
common statements and commands. However, there are certain 
features peculiar to each EduSystem which may make it advan- 
tageous for the user to choose one over the other. A short sum- 
mary of these features is included here. (The user is directed to 
Chapters 5 and 7 for complete details concerning the use of the 
language capabilities of EduSystems 20 and 30). 

EDUSYSTEM 20 

EduSystem 20 provides an immediate mode for fast and accu- 
rate calculations of expressions and equations. Statements used in 
this mode are not stored in memory. 

There are certain commands available in EduSystem 20 which 
are either not present in EduSystem 30 or are used in a different 
way. The more important of these are EDIT, INPUT, DIM, 
IF THEN, ON GOTO, and ON GOSUB. 

The EDIT command speeds the editing procedure by eliminat- 
ing the need to retype complete lines. The user simply searches 
for the character(s) he wishes to change and, using the options 
available, makes the necessary corrections. 
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The INPUT statement allows a number or numbers to be en- 
tered from the Teletype as values for variables. Using EduSystem 
20, the user response may be a value, or a mathematical expres- 
sion which may contain arithmetic operations and a BASIC func- 
tion (see Tables 8-4 and 8-5). 

The DIM statement is not necessary in EduSystem 20 as the 
system sets limits on subscript size (single subscript: 0-2047; dou- 
ble subscript: 0-63 for each subscript), and defines all variables 
as they occur. 

The IF THEN statement, in addition to conditionally altering 
the order of execution by effecting transfer of control, may in- 
clude another BASIC statement, thus causing an operation to be 
performed without changing the order of execution. 

The ON GOTO and ON GOSUB statements allow conditional 
transfer to another statement or subroutine depending upon the 
integer value of the formula following ON. After execution of a 
subroutine, control returns to the statement following the ON 
GOSUB statement. 

It has already been mentioned that EduSystem 20 is a multi- 
user BASIC, and as far as the school system is concerned, this is 
probably its greatest asset. As many as eight users may be work- 
ing simultaneously on one computer. Terminals may be situated 
in different rooms, even different buildings, to serve a greater 
number of users and applications. 

EDUSYSTEM 30 

EduSystem 30 is a true batch system allowing either interactive 
or "hands-off" batch operation. Specially formatted mark cards 
provide a means by which students can easily code programs and 
submit a deck for later execution. An operator can gather all in- 
dividual program decks into one large deck, to be run consecu- 
tively and automatically by the system. Commands are available 
which allow operator intervention during runs. 

EduSystem 30 makes available to the user a single mass storage 
device— DECdisk (or DECtape). The user can store data files or 
sections of very long programs which will later be chained to- 
gether. He can also save programs which may be used later or 
which may be called more than once. Several special commands 
called Privilege Control Commands are associated with the mass 
storage device. Among them are commands which will save and 
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delete programs, determine the amount of available core, list pro- 
grams in storage, and list the number of blocks in use. 

EduSystem 30 includes a CHAIN command which makes pro- 
gram chaining possible and allows the 1 running of programs of any 
length. Each section of the entire program must be 6000 char- 
acters or less and is stored on the mass storage device. Data files 
may be used in a similiar manner by allowing temporary storage 
of data on the mass storage device. Using WRITE statements, 
data may be written onto files; data stored in these files is called 
into a program via READ statements. 

EduSystem 30 includes a character-handling feature which al- 
lows words or characters to be entered into a BASIC program in 
response to questions. The special characters # and $ are used to 
facilitate this procedure. Characters are stored as their respective 
numeric codes and therefore may be used and manipulated with 
standard BASIC commands. The ASCII codes for these characters 
may be found in Appendix B. 

For detailed information concerning the features mentioned in 
this section, and all other available language capabilities* the user 
should refer to Chapter 5 when using EduSystem 20 and Chapter 
7 when using EduSystem 30. 

Language Summaries and Error Message Summaries follow. 

LANGUAGE SUMMARIES 
BASIC Statements and Commands 

Table 8-1 lists the statements available in EduSystems 20 and 
30; Table 8-2 summarizes the editing and control commands. These 
tables are abbreviated forms of those contained in Chapters 5 
and 7. 



Table 8-1. Statements 



Statement 
& Format 




Description 


EduSystem 
20 30 


Input/ Output 
DATA n! , n 2 , . 

INPUT v,., v 2 , . 




Numbers n t through n n equal 
variables in a READ 

Get Vj through v n input from 
TTY 


X X 
X X 
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Table 8-1. (Cont.) Statements 



Statement 
& Format 



Description 



PRINT e^eo, . • e„ 

READ v t , v 2 , . . v„ 
RESTORE 
WRITE n l5 n 2 , ..n n 

Transfer of Control 
GOTOn 

IF ei r e 2 GO TO n 
If d r e 2 THEN n 

ONe, GOTOn,, 



ONeiGOSUBn!, 



EduSystem 
20 30 



Print values of specified text, 
variables or expressions; also 
used for format "control 

Read variables v x through v n 
from DATA list 

Reset DATA pointer to be- 
ginning value 

Record DATA n, through n n 
on mass storage file 

Transfer control to line 
number n 

If relationship r between e x and 
e 2 is true, transfer control to 
line number n 

Same as IF GO TO; under 
EduSystem 20 n may be a 
statement 

Conditionally change order of 
program execution according 
to evaluation of formula e 5 
(if integer of e,=l transfer 
control to n t ; if integer of 
e 3 =2, transfer to n 2 , etc.) 

Conditionally change order of 
program execution according 
to evaluation of formula e, 
(if integer of e t =l transfer 
control td subroutine n t ; if 
integer of ej =2 transfer to 
subroutine n 2 ; if integer of e-]=3 
transfer to subroutine n ;! ) 

Loops and Subscripts 

DIM v(n,), v(n 2 , n ;! ) Define subscripted variables 



FOR v=e, TO e 2 
STEP e : , 

NEXT v 



Set up program loop; define v 
values beginning at e, to e 2 
incremented by e :{ 

Terminate program loop; incre- 
ment value of v until v>e 2 
(in FOR statement) 



x x 



x 



x 



x 
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Table 8.1 (Cont.) Statements 



Statement 


EduSystem Description 




& Format 


20 30 






Subroutines 








GOSUB n 


Enter subroutine at line 








number n 


X 


X 


RETURN 


Return from subroutine to state- 








ment following GOSUB 


X 


X 


STOP 


Transfer control to END 








statement 


X 


X 


Others 








CHAIN 'n' $ 


Link to next section of a 
program which is stored 








within the system as file n 




X 


DEFFNA(x)=f(x) 


Define a function 


X 


X 


DEFFNA (x,y) = 








f (x, y) 








END 


End of a program 


X 


X 


LET v=f 


Assign value of formula f to v 


X 


X 


RANDOMIZE 


Randomizes random number 








routine 


X 


X 


REM text 


Insert a remark or comment 


X 


X 


NOLINE 


Suppress printing of line numbers 
in which program logic errors 








are found 




X 



Table 8-2. Edit and Control Commands 



Command 
& Format 



CAT 



CTRL/C 



DELn 
n 
DEL n, m 
EDI n c 



KEY 



Description 



List names of programs in storage 

area 
Stop program execution; return to 

edit phase 
Delete line n 
Delete line n 

Delete lines n through m inclusive 
Search line n for character c typed 

following carriage return 
Return to keyboard mode after 

TAPE (EduSystem 30-HSR only) 
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EduSystem 
20 30 



x 

X X 

X 

X X 

X 

X 

X X 



Table 8-2. (Cont.) Edit and Control Commands 



Command 
& Format 



Description 



EduSystem 
20 30 



LIST 



LISTn 
LISTn 
LIST n, m 
LISTNH 



LISTNH n 

NEW 
OLD 

RUN 

RUNNH 

SCR 

BYE 

TAPE 



BATCH 
*BATCH n 

ECHO 



LPT 
LENGTH 

NAME 

PUNCH 
PUNCH n 
PTP 

PTR 

RESEQUENCE 

TTY 



List entire program in core (If low- 
speed punch is on, EduSystem 20 
will cause a tape to be punched) 

List program starting at line n 

List line n only 

List lines n through m inclusive 

List program; no header (If low- 
speed punch is on, program will 
be punched on paper tape) 

List program beginning at line n; 
no header 

Clear core; request program name 

Clear core; bring program to core 
from storage area 

Compile and run program in core 

Same as RUN; no header 

Erase current program from core 

Same as SCR 

Read paper tape from low-speed 
reader; suppress printing on TTY 
(also used with high-speed reader 
under EduSystem 30) 

Commence batch processing 

Same as BATCH; limits runs to n 
per program 

Switch from typeout to non-typeout 
mode or vice versa when using 
low-speed reader 

Print output on lineprinter, if 
available 

Request number of blocks to store 
current program 

Same as NEW but does not delete 
existing program 

Punch entire program on paper tape 

Punch program starting at line n 

Punch a program out on the high-speed 

paper tape punch. 

Read program from high-speed reader 

Renumber program lines 

Print output on TTY 
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x 

X 
X 



X 
X 



X 



X 
X 



X 
X 

X 
X 
X 
X 



X 

X 

X 
X 



X 
X 
X 



X 
X 



Table 8-2. (Cont.) Edit and Control Commands 



Command 
& Format 



Description 



EduSystem 
20 30 



PRIVILEGE 

(password) 

"HEADER 

(header) 

♦LOG 

"MAXn 

"PASSWORD 

(new password) 
*SAVE 
"STACK 
"STACK n 

"UNSAVE 



Enable use of privileged commands 
Insert password, no echo 

Change header; type new header 

(max. 12 characters) for next 

batch run 
Print system log 
Set instruction limit n times 200 per 

program for next batch run 
Change password 
Type new password, no echo 
Save program in storage area 
Start unattended batch operation 
Same as STACK; limit runs per 

program 
Delete program from storage area 



x 



x 

x 

x 
x 

X 
X 

X 

X 



* Privileged Mode Command 

Batch Control Cards 

The control cards in Table 8-3 are used when running an Edu- 
System 30 batch card deck. The user must mark the appropriate 
box in the upper left hand corner of the EduSystem 30 mark card. 
Each control card is explained in detail in Chapter 7. 

Table 8-3. Batch Control Cards 



Control 
Card 



Description 



NEW Indicates a new program; contains the new program name; 

must be first card in the deck— any cards appearing before 
this card are ignored. 

OLD Indicates an old program; contains the name of the pro- 

gram to be called; must be first card in the deck — any cards 
appearing before this card are ignored. 

MSG Columns 6-39 contain a message which is printed as part 

of program output. 

OPR Message marked in columns 6-39; when encountered in 

program execution rings bell to alert operator and prints 
message on TTY. 
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Table 8-3. (Cont) Batch Control Cards 



Control 
Card 



Description 



KEY Temporarily halts the batch operation and turns control 

over to the console terminal. 

LIST Instructs computer to print a listing of the program on the 

TTY. Should be placed at the end of the card deck before 
the RUN card. 

RUN Normally the last card in the deck; instructs the computer 

to begin execution. 

BASIC Functions and Arithmetic Operations 

Table 8-4 lists the functions available in EduSystem 20 and 30. 
Table 8-5 is true for all EduSystems. 



Table 8-4. Functions 



Function 



SQR(x) 

SIN(x) 

COS(x) 

TAN(x) 
ATN(x) 



EXP(x) 

LOG(x) 

ABS(x) 

INT(x) 

SGN(x) 

RND(x) 
FIX(x) 
TAB(x) 
CHR$(x) 



Description 



Square root of x ( V"x) 

Sine of x (x in radians) 

Cosine of x (x in radians) 

Tangent of x (x in radians) 

Arctangent of x 

(x in radians) 

(result in radians) 

e x (e=2.712818) 

Natural log of x (log e x) 

Absolute value of x (|x|) 

Greatest integer of x 

Sign of x ( + 1 if positive, — 1 if negative, 

if zero) 

Random number between and 1 

Truncates decimal portion of x 

Controls printing head position on TTY. 

Converts character code to character. 

Used only with PRINT command. 



EduSystem 
20 30 



x x 

X X 

X X 

X X 



X X 

X X 

X X 

X X 

X X 

X X 

X 

X X 



X 
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Table 8-5. Arithmetic Operations 



Symbols 


Meaning 


t ■• 
* 

/ 
+ 

Order of Execution 

1. parenthetical expressions 

2. exponentiation 

3. multiplication and division 

4. addition and subtraction 


exponentiation 

multiplication 

division 

addition 

subtraction 



ERROR MESSAGE SUMMARIES 
EduSystem 20 

EduSystem 20 checks all commands before execution. If an error 
is found, it prints one of the error messages in Table 8-6 and the 
number of the line in which the error occurred. 



Table 8-6. EduSystem 20 Error Messages 



Message 



Explanation 



WHAT? 



ERROR 


1 


ERROR 


2 


ERROR 


3 


ERROR 


4 


ERROR 


5 


ERROR 


6 


ERROR 


7 


ERROR 


8 


ERROR 


9 


ERROR 


10 


ERROR 


11 


ERROR 


12 


ERROR 


13 


ERROR 


14 



Command not understood. It does not begin with a 
line number and is not a valid system command. 
Log of negative or zero number was requested. 
Square root of negative number was requested. 
Division by zero was requested. 
Overflow — exponent greater than approximately +38. 
Underflow — exponent less than approximately —38. 
Line too long or program too big. 
Characters are being typed too fast; use TAPE com- 
mand for reading paper tapes. 
System overload caused character to be lost. 
Program too complex or too many variables. (GOSUB, 
FOR, or user-defined function calls are too deeply 
nested.) 

Missing or illegal operand or double operators. 
Missing operator before a left parenthesis. 
Missing or illegal number. 
Too many digits in number. 
No DEF for function call. 



8-10 



Table 8-6. (Cont.) EduSystem 20 Error Messages 



Message 



Explanation 



ERROR 15. 

ERROR 16 
ERROR 17 
ERROR 18 
ERROR 19 

ERROR 20 
ERROR 21 
ERROR 22 

ERROR 23 

ERROR 24 
ERROR 25 
ERROR 26 
ERROR 27 
ERROR 28 
ERROR 29 
ERROR 30 
ERROR 31 
ERROR 32 
ERROR 33 



ERROR 34 
ERROR 35 
ERROR 36 
ERROR 37 
ERROR 38 

ERROR 39 
ERROR 40 
ERROR 41 
ERROR 42 
ERROR 43 
ERROR 44 
ERROR 45 

ERROR 46 
ERROR 47 
ERROR 48 



Missing or mismatched parentheses or illegal dummy 

variable in DEF. 

Wrong number of arguments in DEF call. 

Illegal character in DEF expression. 

Missing or illegal variable. 

Single and double subscripted variables with the same 

name. 

Subscript out of range. 

No left parenthesis in function. 

Illegal user-defined function— not FN followed by a 

letter and a left parenthesis. 

Mismatched parentheses or missing operator after 

right parenthesis. 

Syntax error in GOTO. 

Syntax error in RESTORE. 

Syntax error in GOSUB. 

Syntax error in ON. 

Index out of range in ON. 

Syntax error in RETURN. 

RETURN without GOSUB. 

Missing left parenthesis in TAB function. 

Syntax error in PRINT. 

An unavailable device was requested by the user— - 

the device is either not present in the system, or in 

use. 

Missing or illegal line number. 

Attempt to GOTO or GOSUB to a nonexistent line. 

Missing or illegal relation in IF. 

Syntax error in IF. 

Missing equal sign or improper variable left of the 

equal sign in LET or FOR. 

Subscripted index in FOR. 

Syntax error in FOR. 

FOR without NEXT. 

Syntax error in LET. 

Syntax error in NEXT. 

NEXT without FOR. 

Too much data typed or illegal character in DATA 

or the data typed in. 

Illegal character or function in INPUT or READ. 

Out of data. 

Unrecognized command during execution. 
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5ffi^ "ASSESS execut^ 

EduSystem 30 also checks all comm 3Q bform s Uie 

it fs unable to execute a command, Edu^tem 
user by printing one of the error messages in Table tt 



Table 8-7. Batch Mode Program Loading Errors 



Message 



BAD CHARACTER 



BAD CHARACTER- 
LINE NOT USED 



WHAT? 



NO ROOM 



FILE NOT SAVED 



FILE TOO BIG FOR 
BATCH MODE 



Explanation 



One or more characters on a card could not 
be understood. The character % replaces 
any unreadable character. The information 
on the card is processed if possible. This 
error does not cause any subsequent RUN 
commands to be ignored. 

Same as BAD CHARACTER message ex- 
cept that the information on the card is 
ignored. This error does cause any subse- 
quent RUN commands to be ignored. 

Line does not make sense to the system. It 
does not begin with a line number and is not 
a valid system command. 

The program is too big to be loaded, i.e. it 
is greater than 5000 characters. Larger pro- 
grams should be run in interactive mode. 

The program named on an OLD control 
card is not available in the system storage 
area. 

The program named on an OLD card is too 
big to be run in batch mode. It must be run 
interactively. 



INTERACTIVE MODE PROGRAM LOADING ERRORS 

As each line is typed, a check is made for program loading er- 
rors. Jf an error is found, one of the messages in Table 8-8 is 
printed immediately after the line containing the error. 
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Table 8-8. Interactive Mode Program Loading Errors 



Message 



WHAT? 

LINE NO. TOO BIG 
LINE TOO LONG 
NO ROOM 
FILE NOT SAVED 

NO SPACE 

Bell 

I/O ERROR 



Explanation 



INVALID PASSWORD 



Line does not make sense to the system. 
It does not begin with a line number and 
is not a valid system command. 

The line number of a line or the argument 
of a system command is greater than 4095. 

Line just entered is longer than 80 char- 
acters. 

There is no room to store the line just 
entered. 

The program named as the operand of an 
OLD command was not previously saved 
on the system device. 

There is not enough space to SAVE the 
current program (DECtape Systems). 

If an invalid character is entered, the Tele- 
type bell rings and the character is ignored. 

An input or output error occurred on the 
DECtape unit. Be sure that the unit is on- 
line, write-enabled, and the unit number is 
set correctly. Retry whatever was inter- 
rupted by the error. If the problem persists, 
there is a hardware problem (DECtape 
Systems). 

The password typed after a PRIVILEGE 
command is not the system password. Priv- 
ileged mode is not entered. 



CODING ERRORS 

After the RUN or RUNNH command, but before execution, 
EduSystem 30 checks for mistakes in the BASIC program coding. 
If an error is found, one of the following messages and the ap- 
propriate line number is printed. 
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Table 8-9. Coding Errors 



Message Explanation 



CH There is an illegal character in the line. 

EN Program does not have an END statement as the last line 

in the program. 

FN Not enough NEXT statements in the program. There 

must be a NEXT statement for each FOR statement in 
the program. 

FO FOR and NEXT statements do not match. There is a 

NEXT statement in the program whose variable is not 
the same as the variable in the corresponding FOR 
statement. 

LI Line contains an improperly written decimal number or 

constant. It may, for example, have two decimal points 
or have an alphabetic character in it. 

Ml The program as a whole is too big to be run by the sys- 

M2 tern. Making the program smaller, reducing the size of 

subscripted variables, or using the NOLINE command 

may help. 

NE Program has too many (more than 8) nested FOR-NEXT 

loops. 

PC Line contains an improperly used parenthesis. Generally, 

the problem is an expression which does not have an 
equal number of left and right parentheses. 

RO Statement contains an invalid relational operator (<, =, 

>> <=, >=). Relational operators may only be used in 
IF statements. 

51 Statement as a whole is not properly written and, as a 

52 result, does not conform to proper BASIC syntax. For 
example, a semicolon is allowed in a PRINT statement 
but not in a READ or INPUT statement. 

ST Statement command word is not one of the BASIC state- 

ment types. 

TB The program is too big to be run. Cause is usually an 

extremely large number of PRINT statements. 

TO Program is either too big or too complex to be run. The 

total number of variables, constants, functions, and line 
numbers should be reduced, if possible. — 
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Table 8-9. (Cont.) Coding Errors 



Message Explanation 

UL A GOSUB, GOTO, or IF statement contains a line num- 

ber which does not exist. 

UQ A quotation mark indicating the beginning of a string of 

text does not have a corresponding quotation mark at the 
end of the text string. _^__________ 



PROGRAM LOGIC ERRORS 

If a program logic error occurs, EduSystem 20 prints one of the 
messages in Table 8-10 after execution. 

Table 8-10. Program Logic Errors 



Message Explanation 



CH A CHAIN statement tried to chain to a program which 

was not available in the DECtape storage area. 

CO Program ran too long and was automatically stopped by 

the system. 

DA The program ran out of data. It attempted to do a READ 

after all data had been read. 

DO The program attempted to divide by zero. Instead of 

dividing by zero, BASIC divides by the smallest possible 
number, giving a result of about 10 500 . This error does 
not cause the program to stop. 

FN An expression contains a function which was not defined 

in a DEF statement. 

GS The program is too complex to be executed. The problem 

is generally that too many subroutines have themselves 
executed GOSUB instructions. 

LG Program attempted to take the logarithm of a negative 

number or zero. 

RE A RETURN statement was used outside a subroutine 

or a subroutine was entered by a GOTO instead of a 
GOSUB. 

SP Same as GS. 

SQ Program attempted to take the square root of a negative 

number. BASIC automatically takes the square root of 
the absolute value of the number instead. This error does 
not cause the program to stop. 
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Table 8-10. (Cont.) Program Logic Errors 



Message Explanation 



SS Program used a subscript which was too big for the vari- 

able. The maximum size of a subscript is specified in a 
DIM statement. 

WR There is no more room to write data. The program at- 

tempted to execute a WRITE statement when the data list 
was full. (Note that if this error occurs, the program text 
will no longer be intact. A NEW, OLD, or SCRATCH 

command must be used to clear the program area.) 



LOADING AND OPERATING INSTRUCTIONS 

The software for EduSystem 40 is distributed on five paper tapes 
— EduSystem 40-20 and EduSystem 40-30 for Disk Systems, and 
individual EduSystem 20 and EduSystem 30 tapes for DECtape 
Systems. The user with a DECtape System should refer to Chapters 
5 and 7 for loading and operating instructions as the following in- 
structions refer only to the standard Disk System. The EduSystem 
40-20 and 40-30 tapes are used to build the EduSystem 40 system 
on DECdisk (either DF32 or RF08) when the system is installed. 
The building procedure is outlined below. 

Initializing the DECdisk 

Initialize the DECdisk by ensuring that* the disk unit is turned on 
and that all disk protect switches are in the off position. 

Building EduSystem 40 on Disk 

The system tapes may be loaded into memory by use of either 
the RIM Loader (refer to Appendix A) or with the automatic 
loader (hardware bootstrap MI8-EF or MI8-EG). 

1 . Turn the key lock on the computer console to POWER. 

2. Turn the Teletype to LINE. 

3. Place the EduSystem 40-20 tape in the appropriate reader 
(high or low-speed) with the leader code (ASCII 200) 
over the read head. 

4. If the system contains a hardware bootstrap, set the 
SR = 5356; press and raise the HALT switch; press and 
raise the SW switch. 
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5. If using the RIM loader, set the SR = 7756; press and 
raise ADDR LOAD, CLEAR and CONT. 

6. Turn the reader on. 

The tape should begin to move (if it does not, be sure the correct 
tape is being used and repeat the above procedure). When the tape 
has been read completely, the system prints the following message 
on the Teletype: 

IS SYSTEM DEVICE A DF32 DISK? 

The user should respond Y or N. If the response is N, the system 
asks: 

IS SYSTEM DEVICE AN RF08 DISK? 

The answer here should be Y; otherwise the system will repeat both 
questions until the answer to one of them is Y. When the correct 
system device has been specified, the system prints: 

EDUSYSTEM 20 BASIC 
NUMBER OF USERSC 1 TO 8)? 

At this point halt the computer by pressing and raising the HALT 
switch. (If the above messages are not printed, the above procedure 
should be repeated before continuing the building process.) 

7. Place the EduSystem 40-30 tape in the appropriate reader. 

8. If the system contains a hardware bootstrap, set the 
SR = 5356; press and raise the SW switch. 

9. Otherwise, set the SR = 0000; press EXTP ADDR 
LOAD; then set the SR = 7756; press ADDR LOAD, 
CLEAR and CONT. 

Approximately one-third of the tape should be read before the 
standard EduSystem 30 dialogue begins. The system will print: 

STANDARD SYSTEM? 

Build EduSystem 30 as detailed in Chapter 7 and summarized be- 
low. The user is at point A on the flowchart in Figure 8-1 and 
should continue with the dialogue presented in the flowchart. (If Y 
is typed as a response to this question, the system assumes the 
responses contained in brackets on the flowchart.) 
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HOW MANY DISKS 
? 

(USER RESPONDS 

FROM 1-4) 

[13 




MAXIMUM DATA 

COLUMNS PER CARD 

? 

(USER RESPONDS 

FROM 0-80) 
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Figure 8-1. Building EduSystem 40 
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TYPE INITIAL 
PASSWORD (USER 
TYPES A WORD 
OF 6 OR LESS 
CHARACTERS) (BASIC) 




TAPE READS IN 



[READS IN 
ADDITIONAL INPUT) 



READY 



Figure 8-1. (Cont.) Building EduSystem 40 
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When EduSystem 40 prints READY on the Teletype, the disk 
is completely built and ready to be used, with EduSystem 30 
running. 

Starting EduSystem 40 

Once EduSystem 40 has been built on the disk, it can be stopped 
and restarted by performing the following operations. 

1 . Press and raise the HALT switch. 

2. A. If the system does not have a hardware bootstrap, the 

following instructions must be manually loaded: 

* Set SR=7750 and press ADDR LOAD. 
Set SR=7600 and lift DEP. 
Set SR=6603 and lift DEP. 
Set SR=6622 and lift DEP. 
Set SR=5352 and lift DEP. 
Set SR=5752 and lift DEP. 

Set SR=7750 and press ADDR LOAD, CLEAR and 
CONT. 
B. If the system contains a hardware bootstrap set the SR= 
5350 and press and raise the SW switch. 

The system should respond by printing: 



EDUSYSTEM 40-SELECT (1=20,2=30): 



If the system does not respond in this manner, repeat the starting 
instructions; if the system does respond as it should, the user is at 
point A on the flowchart in Figure 8-2 and should continue with 
the dialogue in that flowchart. : 
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Figure 8-2. Starting Edusystem 40 



EduSystem 40-20 or 40-30, whichever has been chosen, is now 
ready for use. To take either system down and start the other, the 
user need only repeat the starting instructions from step 1 . 
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edusystem 50 



INTRODUCTION 

EduSystem 50 is a general purpose, time-sharing system for 
PDP-8 computers that offers up to 16 users (24 in certain appli- 
cations) a comprehensive library of System Programs. These 
programs provide facilities for editing, assembling, compiling, 
debugging, loading, saving, calling, and executing user programs 
on-line. An extended BASIC language provides users with the 
ability to use strings, files, and program chaining. Two higher- 
level languages, FOCAL and FORTRAN, are also provided. All 
languages and utilities may be used simultaneously. One group of 
users may be working in BASIC while another is using assembly 
language. EduSystem 50 serves all levels of users simultaneously. 

By separating the central processing operations from time- 
consuming interactions with human users, the computer can, in 
effect, work on a number of programs simultaneously. Cycling 
between programs and giving only a fraction of a second at a 
time to each program or task, the computer can deal with many 
users seemingly at once. The appearance is created that each user 
has the computer to himself. The execution of various programs is 
done without their interfering with each other and without lengthy 
delays in the response to individual users. 

The heart of EduSystem 50 is a complex of subprograms called 
the Monitor. The Monitor coordinates the operations of the vari- 
ous programs and user consoles, ensuring that the user is always 
in contact with his program. The EduSystem 50 Monitor allo- 
cates the time and services of the computer to the various users; 
it grants a slice of processing time to each job, and schedules 
jobs in sequential order to make most efficient use of the system 
disk. The Monitor handles user requests for hardware operations 
(reader, punch, etc.), swaps (moves) programs between memory 
and disk, and manages the user's private files. 
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User Programs 

When the user is working with EduSystem 50, it appears to 
him as though he had his own 4K (4096 word) PDP-8 computer. 
He then has the capability of doing anything which can be done 
in a 4K computer plus the capabilities of the Monitor. Several 
users can run different programs at virtually the same time be- 
cause Monitor controls the scheduling of execution times. The 
Monitor brings a program into core from the disk, allows it to 
execute for a short time, and takes note of the state at which 
execution is stopped. The user is allotted a 4K block of core that 
contains his particular program; this 4K block is swapped (moved) 
from core onto a 4K area of disk when the Monitor needs to 
bring another user program into core to be executed. - 

After the user's program has been executed for a period of time, 
it is placed at the end of the queue (line) of user programs wait- 
ing to be run. If only one program is ready to run, it is allowed to 
do so without interruption until another program is ready. If a 
user wishes to maintain a permanent copy of his program, he can 
save a copy within the file area of the disk (an area separate from 
the swapping area) or on DECtape or paper tape. 



User Files 

A user is any person logged into EduSystem 50. Each user has 
an account number and password assigned to him by the System 
Manager. The account number and password allow the user to 
gain access to the computer. The account number is also used to 
identify whatever files the user may own within the EduSystem 50 
file system. 

The system disk is divided into logical areas called files. A user 
can store programs or data in files on the system disk. The user 
can further specify which users may access his files and for what 
purpose (read, write, or both). Parts of the disk are used to store 
system files, those programs which are accessible to anyone using 
the system. A major portion of this chapter deals with how to 
use the system files, generally called System Library Programs. 

With the appropriate Monitor commands, the user can create 
new files and manipulate old files (extend, reduce, or delete them). 
These commands are summarized in Appendix C. Most individual 
System Library Programs are able to handle user files as input or 
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output with commands issued from the user's console. Such com- 
mands are described in this chapter under the section on the appro- 
priate System Library Program. 

System Configuration 

Depending on the hardware configuration of a particular Edu- 
System 50, as many as 16 users may work on the system simul- 
taneously. The standard configuration is designed to service 16 
users and includes the following hardware components: 

• PDP-8/E computer with 24,576 (24K) words of core 
memory, power failure protection, and an automatic loader 
(hardware bootstrap). 

• High-speed paper tape reader. 

• 262,000 word high-speed disk. 

• Dual DECtape transports and controller. 

• 16 computer terminals and their associated interfaces. 

NOTE 

EduSystem 50 is also available in an 8-user 
configuration with 16,384 (16K) words of 
core memory and without DECtape trans- 
ports. All other system components and 
capabilities remain the same. 

Software provided with the standard EduSystem 50 includes the 
following: 

• General-purpose time-sharing Monitor system. 

• Time-shared BASIC language processor. 

• Time-shared assembly language package including text 
editor, symbolic assembler, loader, and utility debugging 
program. * 

• Time-shared FORTRAN-D and FOCAL language pro- 
cessors. 

• System utility programs, such as PIP and DECtape COPY. 

• Library of sample programs, textbooks, and curriculum 
guides. 

EduSystem 50 may optionally include a high-speed line printer. 
Also optional are additional core memory, disk storage unts, or 
DECtape transports for added system storage capacity. 
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System Expansion 

EduSystem 50 may be expanded to EduSystem 55 by adding a 
card reader to the configuration. EduSystem 55 includes all the 
features of EduSystem 50 and allows EduSystem 30 to be run as 
one of the time-shared jobs. (See Chapter 7 for a detailed expla- 
nation of EduSystem 30.) 

EDUSYSTEM 50 MONITOR 

EduSystem 50 Monitor controls the allocation and use of hard- 
ware resources. Many of these functions of the Monitor are in- 
visible, and of no concern to the user, for example, the way it 
allows many users to run programs on a single computer. In other 
instances, the user explicitly tells the Monitor what he would like 
to do by typing one or more of the Monitor commands described 
in this chapter. 

The Monitor commands described in the first half of this section 
are those needed to log into the system, to utilize the System 
Library Programs, and to log out of the system. All users must be 
familiar with these commands. The commands described in the 
last half of this section are not needed to run System Library Pro- 
grams such as BASIC or FOCAL but are frequently useful. The 
Advanced Monitor commands described at the end of this chapter 
are primarily useful for creating assembly language programs and 
files. 

NOTE 

All Monitor commands must be terminated 
by typing the RETURN key. All words 
within a Monitor command line are sepa- 
rated by one or more spaces. 

Calling the Monitor 

The user enters commands to system programs, such as BASIC 
and FOCAL, in exactly the same way that he enters commands to 
the Monitor (i.e., by typing them at the keyboard); therefore, the 
system must have some way of distinguishing between the two 
cases. It does so by defining two modes of console operation: 
Monitor mode and program mode. When a user's console is in 
Monitor mode, all input is interpreted as being commands to the 
Monitor. Otherwise, all input is assumed to be to the user program 
or system program which is being run by the user. 

A special character, CTRL/B (obtained by striking B with the 
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CTRL key held down and echoed on the Teletype as |B), is 
used to unconditionally place the user's console in the Monitor 
mode. Typing CTRL/B tells the system that the command to fol- 
low is a Monitor command, regardless of the current console mode. 
Generally, the command which follows the CTRL/B will be the 
S command. 

fB Return to Monitor mode. 

tBfBS Return to Monitor mode from a program 
which is printing. (The two CTRL/B's 
stop the printout, allowing the S command 
to be typed.) 

It is not necessary to precede each Monitor command with 
CTRL/B. Once in the Monitor mode, a console stays in that mode 
until a command is entered to start a system program. To signify 
that the console is in the Monitor mode, the system prints a 
dot (.) at the left margin of the console printer paper. This dot 
indicates that the characters entered next are to be treated as a 
Monitor command. Thus, the CTRL/B capability is important 
when a user is running a program and wishes to issue a Monitor 
command. He may, for example, be using one language (or sys- 
tem program) and want to change to another, as shown below: 

.R FOCAL 

SHALL I RETAIN LOG, EXP, ATN ? :NO 

SHALL I RETAIN SINE/ COSINE ?:N0 

PROCEED. 

♦TYPE 6+10-3-1 
= 12.0000* 
*TYPE 25+5*2+5 

a 40.0000* 

*»BS 

• 

.R BASIC 

NEW OR OLD--NEW 
NEW PROGRAM NAME-- 
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Notice that the Monitor responds to BS by printing a dot at the 
left-hand margin. 

Logging into EduSystem 50 

To prevent unauthorized usage and to allow the Monitor to 
maintain a record of system usage, EduSystem 50 requires that 
each user identify himself to the system before using it. Before 
attempting to log into the system, the user should ensure that the 
console LINE/ OFF/ LOCAL knob is set to LINE and then 
press the RETURN key. If the console is connected to Edu- 
System 50 and is not already in use, the Monitor rolls the console 
paper up two lines and prints a dot at the left margin of the 
paper. The dot indicates that the system is in Monitor mode and 
that the Monitor is waiting for a command. The LOGIN command 
allows the user to gain access to EduSystem 50. 

The used types LOGIN followed by an account number and 
password. Providing the console is free (not already logged in), 
the command, account number, and password are not printed on 
the console paper as the keys are typed. If the command name 
letters are being printed, stop typing the command; instead, strike 
the RETURN key, log out using the LOGOUT command (see 
Logging out of EduSystem 50). At this point, a successful LOGIN 
can be accomplished. The LOGIN command is formatted as shown 
below: 



.login 1234 abcd ( only the dot is printed) 



The dot (.) is printed by the Monitor, LOGIN is the* command 
name; 1234 represents the user account number, and ABCD repre- 
sents the password. 

NOTE 

A command word and each parameter (ex- 
cept the last) is always followed by a space. 
Command lines are always terminated with 
the RETURN key. The RETURN key en- 
ters the full command line to the system. 
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When a user types something other than a valid LOGIN com- 
mand, the Monitor responds in one of the following ways: 

System Response Explanation 

(user typed HELLO) 



HELLO? 
LOGIN PLEASE? 



(user typed ASSIGN D 3) 



(user typed LOGIN ABCD 
ILLEGAL REQUEST ABCD) 

.LOGIN 4771 DEMO (user typed valid LOGIN on an 

ALREADY LOGGED IN already logged in console) 

(user typed an incorrect 
UNAUTHORIZED ACCOUNT account number or password) 

In the first example, HELLO is not a command, so it is repeated 
with a question mark by the Monitor. In the second example, 
ASSIGN D 3 is a valid command but is not appropriate until the 
user is logged into the system. In the third example, the Monitor 
finds that the LOGIN command is improperly formatted (the first 
parameter must be a 1- to 4-digit number); the console printout 
tells the user that he has made an ILLEGAL REQUEST. When 
the console is already logged in and the user types the LOGIN 
command, the characters typed echo at the console and the Monitor 
informs the user that the console is occupied with the message 
ALREADY LOGGED IN. 

If the user attempts to use an incorrect account number or pass- 
word, the Monitor replies UNAUTHORIZED ACCOUNT. Thus 
the Monitor can distinguish an invalid" command from a valid 
command; it can also distinguish whether the valid command is 
appropriate when issued, whether the command is properly for- 
matted, and whether the account number and password are accept- 
able. In all the preceding examples, Monitor ignores the command 
and prints another dot. 

When the Monitor finds the LOGIN command properly for- 
matted and the account number and password acceptable, it re- 
sponds by identifying the version of the system being used, the 
job number assigned to the user, the number of the console being 
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used, and the time-of-day in hours, minutes, and seconds. This in- 
formation is usually followed by a note from the System Manager 
concerning the system. For example: 



TSS/8.22B JOB 01 K00 17:05:40 

YOU ARE NOW LOGGED INTO THE BHS , EDUSYSTEM 50. 
PROCEED AT YOUR OWN SPEED. 



The Monitor then prints another dot and waits for the user to 
issue the next command. The job number assigned is an internal 
number by which the system identifies each on-line user; the user 
need not remember this number. 

Logging out of EduSystem 50 

The LOGOUT command indicates to the Monitor that the user 
is finished and ready to leave his terminal. When Monitor receives 
a LOGOUT command, it disconnects the user terminal from the 
system and records the amount of computer time used during the 
session and the total real time of the session. It also notes any user 
files deleted or saved. For example: 

.LOGOUT 

JOB 01, USER (1234, ABCD) LOGGED OFF K00 AT 19:20:19 ON 02-28-73 

DELETED 1 FILES < I. DISK BLOCKS) 

SAVED 11 FILES ( .38. DISK BLOCKS) 

RUNTIME 00:00:24 < 7. CPU UNITS) 

ELAPSED TIME 02:14:39 

PLEASE TURN OFF YOUR TTY. 

Computer processing time used in this example was 24 seconds, 
while the elapsed time between LOGIN and LOGOUT was 2 
hours, 14 minutes, and 39 seconds. 

When typing the LOGOUT command, the user may follow it 
with a colon and an option to initiate some action by the system. 
These options and their functions are described in Table 9-1. To 
specify an option, the user types, for example: 

. LOGOUT :K 
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If no option is specified, the S option is assumed; similarly if a 
user is simultaneously logged in at two (or more) consoles, no 
files will be deleted until he logs off his last job. 



•LOCOUT:? 

TYPE tC TO ABORT LOC-OUTJ OR 

TYPE ONE OF THE FOLLOWING (AMD CAR RET): 

K TO KILL' JOB AMD DELETE ALL UNPROTECTED FILES; 

L TO LIST YOUR DISK DIRECTORY; 

S TO SAVE ALL ( NON -TEMPOARY') FILES; OR 

I TO INDIVIDUALLY SAVE AND DELETE FILES AS FOLLOWS: 

AFTER EACH FILE NAME IS LISTED, TYPE: 
P TO SAVE AND PROTECT, 
5 TO SAVE WITHOUT PROTECTING, OR 
CAR RET ONLY TO DELETE. 

CONFIRM: L 

FIE .BIN <17> 1. BLOCKS 

BAS000.TMP <17> 1. BLOCKS 

BAS100.TMP <"1 7> 1. BLOCKS 

INTER .BAS <17> 1. BLOCKS 

PROG .FCL <12> -2. BLOCKS 



CONFIRM: I 

FIE .BIN <17> 1. BLOCKS 

BAS00 .TMP <17> 1. BLOCKS 

INTER .TMP <17> 1. BLOCKS 

INTER .BAS <17> 1. BLOCKS 

PROC .FCL <12> 2. BLOCKS 



S 
DELETED 
DELETED 



JOB \, USER C 3* 1 3D LOGGED OFF K00 AT 10:46:07 ON 9 JUN 70 
DELETED 3 FILES ( 3- DISK BLOCKS) 
SAVED 2 FILES C 3. DISK BLOCKS) 
RUNTIME 00:00:25 ( 2. CPU UNITS) 
ELAPSED TIME 00:06:12 

In the previous example, the user typed a question mark to 
check the LOGOUT options. When LOGOUT completed the 
printed explanation, it printed CONFIRM: and waited for a user 
reply. In this case, the user requested a listing of his files. LOG- 
OUT followed this listing with a second CONFIRM: to which the 
user replied I. When using the 1 option, the user is advised not to 
type his reply to individual entries until printing stops. DELETED 
is printed automatically by the system to show that the temporary 
files are deleted without user intervention. The user saved binary 
file FIE and the FOCAL file PROG. The BASIC file INTER 
was deleted by typing the RETURN key. 
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Table 9-1. LOGOUT Options 



Option Function 



:S Save all nontemporary files. A temporary file is one of the 

following: 

BASOnn 
BASlnn 
TEMPnn 

where nn is the console number at which the user is logged 
into the system. A temporary file is created by a System 
Library Program and listed in CATALOG listings. A tem- 
porary file is also considered to be any file with a .TMP 
extension. If no option is specified in the LOGOUT com- 
mand, :S is the default. 

:K Delete all unprotected files from disk. 

:L List the user's file directory. After listing the files, the sys- 

tem prints CONFIRM: and the user replies with one of 
the options. 

:I Allow the user to individually decide which files to save 

or delete. Temporary files are deleted automatically. 

:? Print a listing of the available options and their functions. 



An optional method of logging out of the system is to type K 
in response to the Monitor dot or K followed by a colon and an 
option designation. For example: 



• K 

JOB 01, USER <1234,ABCD) LOGGED OFF K13 AT 14:28:02 ON 02-28-73 
SAVED 3 FILES ( .4. DISK BLOCKS) 
RUNTIME 00:00:07 ( 1. CPU UNITS) 
ELAPSED TIME 00:13:57 



System Library Program Control 

Once logged into the system, the user can call any EduSystem 
50 System Library Program. To call a library program, the user 
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types the command R (meaning run) followed by one or more 
spaces and the program name. For example: 

.R BASIC 
NEW OR OLD — 

The Monitor fetches the BASIC language processor from the 
System Library and starts it. BASIC begins its dialog by asking 
if the user wishes to work on a new program or retrieve an old 
one from disk storage. Notice that once BASIC begins, the con- 
sole is no longer in Monitor mode. Dots are no longer printed at 
the margin. All input is now processed by the BASIC language 
processor. 

If the user types a program name which cannot be found in the 
System Library, the Monitor responds with an error message and 
returns the console to the Monitor mode, as follows: 

.R BASICK 

FILE NOT FOUND? 

• 

The exact contents of a System Library may vary from instal- 
lation to installation. The System Manager may choose to make any 
number of programs available to all users. 

Communication with Other Users 

Although EduSystem 50 gives each system user the impression 
that she is the only user of the system, it is actually supporting many 
users at a time. Often it is useful to communicate with another 
user or with the system operator; this is done with the TALK com- 
mand. The TALK command requests the Monitor to print a mes- 
sage on another system terminal. For example, a user at terminal 
7 can ask the system operator to turn on the high-speed punch by 
typing the following command (the initial dot is printed by the 
Monitor) : 

•TALK PLEASE TURN ON THE HIGH-SPEED PUNCH. 

The above command causes the following to be printed at console 0. 

**K07** PLEASE TURN ON THE HIGH-SPEED PUNCH. 
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**K07** indicates that terminal 7 sent the message. Any ter- 
minal can initiate a message to any other terminal. However, if the 
destination terminal is printing at that time, the message will not 
be sent. The initiating terminal would, in this case, receive the mes- 
sage BUSY as a response. 

System Status Reports 

The command SYSTAT initiates a printout of the full status of 
EduSystem 50, how many users are on-line, what they are doing, 
etc. The command SYSTAT is equivalent to typing R SYSTAT. 
The format of the status report is described in the section on 
Utility Programs. 

The user can obtain information on the amount of computer 
time used by him, the amount used by another user, or obtain 
the time of day with the TIME command. The TIME command 
can be issued in one of the following three forms: 



TIME 

TIME 
TIMEn 

For example: 



Returns the elapsed processor time of the 
user issuing the TIME command since he 
logged into the system. 

Returns the time of day. 

Returns the amount of processor time used 
by job n since logging into the system. 



• TIME 
00:00x00 
•TIME 
17i21 106 
.TIME 10 
00 * 00 * 34 



Resource Sharing 

All system users, when logged into the system, have access to 
the System Library, disk storage, a virtual 4K PDP-8, and the 
EduSystem 50 Monitor. The Monitor handles disk resource re- 
quests automatically. The Monitor also maintains a pool of avail- 
able devices which are assigned to users upon request on a 
first-come, first-served basis. Devices such as the high-speed paper- 
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tape reader cannot, by their very nature, be assigned to several 
programs simultaneously. Therefore, the Monitor grants individual 
users exclusive access to these devices when needed. Devices such 
as the system disk, and sometimes DECtapes, are not assigned 
since they can be used by more than one user simultaneously. 

All systems include a high-speed paper-tape reader in the pool 
of available devices. Many systems also include a high-speed paper- 
tape punch, high-speed line printer, and one or more DECtapes.. 
These assignable devices are normally used with the System Library 
Programs PIP and COPY to store programs or data on paper tape 
or as DECtape files. 

When a device is assignable (present on the system) and avail- 
able (not being used), the ASSIGN command may be used to 
reserve the desired unit or units for exclusive use by the console- 
issuing the command. The valid ASSIGN commands are for- 
matted as shown below: 

ASSIGN R Assign the high-speed paper-tape reader. 

ASSIGN P Assign the high-speed paper-tape punch 

and line printer. 
ASSIGN D Assign a DECtape unit. 

ASSIGN L Assign the line printer and high-speed 

punch. 

If other devices are assignable, the System Manager will inform 
the user of the appropriate device designator. The following is an 
example of using an invalid device designator: 



.assign x 

ILLEGAL REQUEST 



The Monitor ignores the request, responds with the appropriate 
message, and prints another dot. When a valid ASSIGN command 
is issued, the Monitor checks the availability of the device and re- 
sponds "accordingly. For example: 



.ASSIGN R 
R ASSIGNED 
.ASSIGN P 
JOB 02 HAS P 
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When the system contains multiple units of a device, the user 
simply specifies the device; the Monitor assigns an available unit 
and responds with the unit number. For example: 



.ASSIGN D 

D ASSIGNED 



If all DECtape units are busy, the Monitor prints the message 
shown below: 



.ASSIGN D 

DEVICE NOT AVAILABLE 



A specific unit can be requested by leaving a space between the 
device designator and the device number. For example: 



.ASSIGN D 4 
D 4 ASSIGNED 



NOTE 

If the user assigns a device with a nonexis- 
tent device number, that device will not be 
assigned; an error message does not result 
because that device is not busy. An error 
message only results when the device is al- 
ready assigned. 

The ASSIGN command assigns only one device at a time. There- 
fore, when multiple devices are to be assigned, each must be as- 
signed separately. The following will not accomplish the desired 
assignments, either with or without the illegal commas. 



.ASSIGN R, D2, 1 
R ASSIGNED 

The Monitor accepted the first device designator and ignored the 
rest of the command. If device R is unavailable, the Monitor prints 
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the appropriate message. The following commands complete the 
desired assignments (assuming available devices) : 



.ASSIGN D 2 
D 2 ASSIGNED 
.ASSIGN D 1 
D 1 ASSIGNED 



When the user has finished working with an assigned device, he 
should use the RELEASE command to terminate the assignment 
and allow other users access to the device. (When a user logs out 
of the system, any devices still assigned to him are automatically 
released.) A particular device is released when the user enters 
the RELEASE command, a space, and the device designator (and 
unit number if required) , as shown below: 



.RELEASE R 
.RELEASE D 3 



In the previous example, the high-speed reader and DECtape 
unit 3 are released. The Monitor prints a dot on the next line if 
the release is accomplished; otherwise, it prints a message. If, for 
example, a request is made to release a device which has not been 
assigned to the issuing console, the following happens: 



.RELEASE D 2 
ILLEGAL REQUEST 



The Monitor printed ILLEGAL REQUEST after it checked and 
found that the specified device was not assigned to the console 
issuing the command. 

NOTE 

All commands must be formatted properly; 
ILLEGAL REQUEST is printed if the user 
fails to separate the device designator and 
unit number with a space. 
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When multiple device units were reserved by a user, each must 
be individually released. For example: 



•RELEASE D 1 
•RELEASE D S 
.RELEASE R 



The Monitor does not perform checking when releasing a device 
as it does when assigning a device. The user may have two device 
units (e.g., two DECtape units) assigned and Monitor would not 
know which to release; therefore, device numbers are necessary 
with a RELEASE command. When only one unit of a specific 
device (one high-speed reader or punch, etc.) is on the system, 
the device designator alone is sufficient. 

Error Messages 

An appropriate error message is printed whenever: a Monitor 
command cannot be perfoimed at the time it is requsted, a typing 
error is made, or the command is illegal (or nonexistent). Follow- 
ing, each error message, the Monitor ignores the command and 
prints another dot, after which the user can issue another com- 
mand. Table 9-2 is a list of the Monitor error messages. 

Table 9-2. Monitor Error Messages 



Message Explanation 



SI The System Interpreter does not 

understand the command. SI = 
command. 

LOGIN PLEASE? The user attempted to use a con- 

sole which is not logged into the 
system. 

UNAUTHORIZED ACCOUNT The user attempted to log into the 

system with an invalid account 
number or password. 

ALREADY LOGGED IN? The user tried to log in on a con- 

sole which is already in use. 

FULL The system is full. Another user 

cannot log in until one of the pres- 
ent users logs out. . ' 
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Table 9-2 (Cont.). Monitor Error Messages 



Message 



Explanation 



TYPE TBS FIRST 



ILLEGAL REQUEST 



BUSY 



The user attempted to use a sys- 
tem command which cannot pres- 
ently be honored due to the status 
of the user's program. The message 
may appear even after the user has 
typed tBS, since his program may 
continue until the I/O in progress 
at the time of the halt is completed. 
The user should wait a few seconds 
and then type his command a sec- 
ond time. 

The user requested an illegal com- 
mand. This error usually results 
when some parameter has been 
given an incorrect value or the 
request refers to a facility not 
owned by the user. 

The user attempted to talk to a 
console which is currently print- 
ing or on which another user is 
typing. 



SYSTEM LIBRARY PROGRAMS 

The System Library contains a comprehensive set of user pro- 
grams for a wide range of applications. Language processors, such 
as BASIC and FOCAL, allow the user to code and run programs 
in interactive languages. FORTRAN-D compiles and executes 
programs written in FORTRAN language. A complete assembly 
language system allows programs to be written in PAL-D, assem- 
bled, and run. Various utility programs perform special functions.. 
The DEC-supplied System Library consists of the following pro- 
grams. 

• BASIC — an easily learned interactive language originally 
developed at Dartmouth College. 

• FOCAL — DEC's own interactive language for on-line 
problem solving, designed especially for use on mini- 
computers. 
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• FORTRAN-D— a modified version of FORTRAN II. 

• EDIT — a line-oriented text editor, used to create and 
modify source programs (such as FORTRAN) and data 
files. 

• PAL-D — a 2-pass symbolic assembler. 

• LOADER — a binary loader used to load assembled pro- 
grams for execution. 

• ODT — Octal Debugging Technique for testing and modi- 
fying assembly language programs. 

• PIP — Peripheral Interchange Program for transferring 
files between the system disk and paper tape. 

• COPY — a utility program used to transfer files between 
the system disk and DECtape. 

• CAT — used to list all the files which a user has stored in 
his library. 

• SYSTAT — (System Status) a utility program that prints 
a brief description of the system status. 

A more detailed description of each of the above System Library 
Programs is presented in the following sections. 

General File Characteristics 

A fundamental feature of the Monitor is its ability to save pro- 
grams or other data for each user in his own private library. These 
individual user libraries are maintained on the system disk. In- 
dividual entries in the library are called files, whether they contain 
programs or data. Within the library itself, there is no distinction 
between types of files by their contents. Each file is identified with 
a file name by which it is known and called into use. 

The user does not directly create and update the files in his li- 
brary. He uses the System Library Programs for this purpose. For 
example, he can use the SAVE command in BASIC. The SAVE 
command takes the BASIC program named and saves it as a file 
in the user's library for future use. Similarly, EDIT can be used 
to modify an existing file, resulting in the creation of a new file. 
Therefore, although the Monitor provides the actual file storage 
capability, most file manipulation is done while System Library 
Programs are being run. 

The System Library Programs which operate on these files must 
know which file to use, when to create a new file, and what to call 
it. Each Library Program has its own method of determining 
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whether a user wishes to use an old file or create a new one; this 
is explained in the sections on individual library programs. 
Example 1: 

.R BASIC 

NEW OR OLD--OLD 

OLD PROGRAM NAME--PRIME 

READY 

Example 2 : 

.R FORT 

INPUT J TYPE 
OUTPUT :BTYPE 

For most of his work, the user requires access to only his own 
library. However, it is often a useful feature to be able to obtain 
a program from another user's library, allowing a single file to be 
shared by several users. To access a program from another user's 
library, the user must tell the system in which individual library 
the file is stored. The user tells the system by entering the account 
number of the library's owner. (In the absence of an account 
number, the user's own library is the assumed source.) To get a 
file from the System Library, type an asterisk immediately after 
the file name. 

Example 1: 



•R BASIC 

NEW OR OLD--OLD 

OLD PROGRAM NAME--HOSSR* 

READY 



Example 2: 



.R PALD 

INPUT sNOTP IP 5440 

OUTPUT t B INI 



NOTE 

Most examples in the discussions of indi- 
vidual System Library Programs use file 
names within the user's own library. The 
user is free (file protect permitting) to use 
files from other user's libraries. 
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Access to another user's files is gained only with his permission. 
A user may "protect" his files against other users, i.e., prevent 
them from gaining access to his files, even though they know his 
program name and account number. Library Programs never per- 
mit a user to write in another user's files. Specifying a file which 
is protected, or specifying a nonexistent file, is an error that is 
detected immediately. An error message is printed and the file 
name is requested again. 

The user places his output in a single file; however, it is often 
useful to input several files together. (For example, the user may 
wish to assemble two parts of a PAL-D program together.) To 
specify more than one input file, separate the file names by com- 
mas. No Library Program allows more than three input files. 
FORTRAN is limited to two; BASIC allows only one. 

BASIC is a self-contained programming system, with an editor, 
compiler, and run-time system. It also has a distinctive file format. 
Files created by BASIC are not compatible with files created by 
other Library Programs. All other Library Programs depend on 
each other; therefore, all other Library Prograrns use the same 
format for their disk files. Consequently, files created by the 
Editor can be used as input to PAL-D or FORTRAN-D, and 
numerical files created with the use of the Editor can be read by 
FORTRAN programs as data files. 

Up to this point, only files that exist within the time-sharing 
system, i.e., on the system disk, have been described; however, 
EduSystem 50 provides two other means of file storage: paper 
tape and DECtape. The Library Program PIP can be used to trans- 
fer files between paper tape and disk. The Library Program 
COPY allows files to be transferred between disk and DECtape. 



Controlling the Execution of System Library Programs 

EduSystem 50 provides the user with two options for stopping 
the system. CTRL/C (C with the CTRL key held down) allows 
the user to stop his BASIC program and return to the beginning 
of that program without returning to the Monitor. For example, if 
the user begins to run a BASIC program that has an endless loop, 
he can type CTRL/C to stop it. BASIC responds to tC with 
READY. All other Library Programs respond in a similar manner. 

CTRL/B is used to stop the Library Program most recently 
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called. CTRL/B followed by S and the RETURN key uncondi- 
tionally returns the user to the Monitor mode; the user can then 
call another Library Program. If the system is printing, two 
CTRL/B's and the S (TBtBS) are required to stop the system. 
RUBOUT is another useful character that deletes the last typed 
character. Some Library Programs respond by printing \ or *- 
while others print the deleted character. If the RUBOUT key is 
typed while entering file names for input or output to a Library 
Program, RUBOUT deletes the whole line. The request for input 
or output is then repeated. 



Returning to the Monitor 

The user can stop the execution of a System Library Program 
at any time by typing CTRL/B followed by S and the RETURN 
key. The System Library Programs can also initiate a return to 
the Monitor. When the System Library Programs initiate a re- 
turn, tBS is printed just as though the user had terminated the 
program. For example, BASIC returns to the Monitor when the 
user types the BYE command: 



READY 

BYE 

TBS 



FORTRAN returns to the Monitor after completing execution of 
a program. CAT and SYSTAT return afer printing their particular 
data output. PAL-D returns after completion of an assembly, 
LOADER at the end of a normal load, and EDIT after com- 
pletion of an EDIT. FOCAL, BASIC, ODT, PIP, and COPY 
never return to the Monitor; these programs must be terminated 
by the user with CTRL/B and S. Some System Library Programs 
return to the Monitor when a fatal error condition is detected. 
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BASIC 

EduSystem 50 BASIC is a time-sharing version of the BASIC 
language. It allows even the beginning computer user to write 
and run meaningful programs. In addition, EduSystem 50 BASIC 
has advanced language features such as strings, files, and program 
chaining. This section describes the BASIC language capabilities 
not discussed in Chapter 1. Table 9-6 contains a complete sum- 
mary of the EduSystem 50 BASIC language. 

To call BASIC, the user types: 

.R BASIC 

After the user logs into EduSystem 50, and calls BASIC in the 
above manner, BASIC prints NEW OR OLD — . The user then 
types the appropriate adjective: NEW (if he wants to enter a new 
program) or OLD (if he wants to retrieve a program that was 
previously filed). 

BASIC then asks NEW PROGRAM NAME— (or OLD PRO- 
GRAM NAME — ) and the user types any combination of six 
letters or less. If the user is recalling an old program file from the 
disk, he must use exactly the same name as when he originally 
instructed BASIC to save it. 

BASIC prints READY to signal the start of the editing phase; 
the user then begins to type the new program. If the user types 
a line consisting of only a line number followed by the RETURN 
key, that line is deleted. Each line must begin with a line num- 
ber greater than and less than 2047 and which contains no non- 
digit characters. To enter an entire line to the computer, the user 
must press the RETURN key. 

If the user makes a typing error while typing a statement and 
notices it immediately, he can correct it by typing the RUBOUT 
key (right-hand side of the keyboard), or the back arrow key 
(SHIFT/O). Typing either key deletes the character in the pre- 
ceding space and prints a backarrow (*-) character for each char- 
acter erased. The user can then type the correct characters. Typing 
the RUBOUT key a number of times erases one character from 
the current line (spaces are characters) to the left for each RUB- 
OUT typed. 

While BASIC is in the editing phase, certain additional com- 
mands (which must not have line numbers) are available. The 
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commands are described in Table 9-6 under Edit/Control Com- 
mands. 

Truncation Function, FIX(X) 

The truncation function returns the integer part of X. For 
example: 



10 PRINT "FIXC10.2)= M FIXO0.2) 

20 END 

RUN 

FIX(10.2)=10 



FIX is like INT for positive arguments, and can be defined as: „ 
FIX(X) = SGN(X) * INT(ABS(X)) 

ON GOTO Statement 

The ON . . . GOTO statement may be used to provide a many- 
way branch. The general form of the ON . . . GOTO is: 

On expression GOTO line number, line number .... 

If the value of the integer part of the expression is 1, a GOTO is 
performed to the first statement. If the value of the integer part of 
the expression is 2, a GOTO to the second statement number is 
performed, etc. If the value is less than one, or greater than the 
number of statement numbers, the program terminates and an 
error message is printed. Examples of ON GOTO are shown 
below: 

999 ON N GOTO 1 00,40a, 200, 600,499 
872 ON A+SQRCB*C) GOTO 100,200 

SLEEP Statement 

The SLEEP statement causes a BASIC program to pause for a 
specified interval, then continue running. SLEEP is followed by 
the number of seconds the program is to pause. For example: 

222 SLEEP 30 

or 
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220 LET N=15 
222 SLEEP 2*N 



causes a 30 second delay in the program. 

The SLEEP statement is a useful way for a program to wait 
for a device (DECtape or line printer) which is busy. The ELSE 
clause in the OPEN statement can go to a routine which pauses 
for a while, then retries the OPEN. When the current user finishes 
with the device and releases it, the program may then proceed to 
OPEN and use it. This capability is especially useful when many 
users may be looking up information on a single DECtape file. It 
may also be used to allow two programs to communicate with each 
other. Each writes information on a tape file for the other, or 
others, to read. 

SLEEP should always be used when waiting for a device. While 
the program is sleeping it is not using any processor time. A SLEEP 
time of 30 to 60 seconds is recommended. It is particularly im- 
portant that the program not wait by repetitively retrying the 
OPEN. To do so wastes computer time and slows down other 
users. The integer part of the argument is used to determine the 
number of seconds to delay. This value must be between and 
4095. 

Comments 

An entire statement of comments may be included in the BASIC 
program by means of the REM statement. Often comments are 
easier to read if they are placed on the same line with an executable 
statement rather than in a separate REMARK statement. This 
can be accomplished by ending an executable statement with an 
apostrophe. Everything to the right of the apostrophe up to the 
statement terminator (carriage return or backslash) is ignored 
(unless the apostrophe occurs within a print literal or string 
constant.) For example: 



10 LET X=Y 'THIS IS A COMMENT* 

20 PRINT "BUT THIS IS NOT A COMMENT" 

30 LET X$="A'B" 

Thus, a comment is added to line 10 with an apostrophe, but in 
lines 20 and 30 the apostrophe is treated as a valid character. 
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Blank Lines 

To make BASIC programs easier to read, blank lines can be 
inserted anywhere in a BASIC program. These can be used to 
break a program into logical sections, or (as is often done) to 
.insert remarks with the apostrophe feature. For example: 



10 'PROGRAM WRITTEN BY SAM JONES 
100 

Note that to insert a blank line, you must type one or more spaces 
after the line number; typing the line number alone will just de- 
lete that line from the program. 

Multiple Statements per Line 

As many statements as will fit may be typed on a single pro- 
gram line. Each statement must be separated by the backslash 
character "\" (SHIFT/L). The only statement requiring a line 
number is the initial one. For example: 

10 FOR 1=1 "TO 10NPRINT I\NEXT I 

Note that the backslash character acts as a statement terminator 
and thus cannot be included in a comment statement. 

Editing BASIC Statements 

If a program line is incorrect, it can be corrected by retyping 
it. Minor errors in statements can be corrected by using the EDIT 
command. The user types EDIT followed by the line number of 
the statement to be edited. BASIC responds by printing a left 
bracket ([). The user then types a search character. BASIC prints 
a close bracket and prints the statement through the first occur- 
rence of the specified search character. The user may then: 

1 . Type new characters which are inserted at that point 
in the statement. 

2. Type one or more back arrows («-) to delete characters 
to the left of the search character. 

3. Type the ALT MODE key to delete the entire line up 
to that point (but not the line number) . 

4. Type CTRL/L to continue to the next occurrence of the 
search character. 
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5. Type CTRL/G to specify a new search character. 

6. Type LINE FEED to finish the edit, keeping the re- 
mainder of the line unchanged. 

7. Type RETURN to finish the edit, deleting the remainder 
of the line. 



Saving Compiled Programs 

BASIC compiles the current program each time it is run. If, 
however, a program will be used frequently without being changed, 
it may be stored in its compiled form. A compiled program can 
be retrieved and executed faster than a BASIC source program. 
To save a compiled program, the user types : 



COMPILE FAME 

The program is saved on the disk under the specified name 
(FAME). If a file by that name exists, BASIC prints DUPLI- 
CATE FILE NAME and does not compile that program^ 

Once a program has been compiled, it may be retrieved and 
run just like an ordinary BASIC source program. It may not, how- 
ever, be listed, saved, or changed. If an attempt is made to do 
any of these things, the message EXECUTE ONLY is printed. 
The compile capability may therefore be used to protect programs 
from unauthorized listing or changing. Since only BASIC source 
programs can be edited, the user may wish to store both a source 
and a compiled version of a given program. 

Compiled files are distinguished from regular BASIC programs 
by their file extensions. BASIC source programs have an exten- 
sion of .BAS. Compiled files have an extension of .BAC. These 
extensions are printed along with the file name when a catalog 
is requested. 

File Protection 

EduSystem 50 permits a user to specify a protection code for 
each file. (See the section on Advanced Monitor Commands for 
a full description of protection codes.) The commands which write 
disk files (SAVE, REPLACE, COMPILE) also permit the user 
to specify what protection is to be given to a file. This is done 
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by following the file name with the protection code in angle 
brackets. For example: 

SAVE DEMO <10> 

will create and save a file named DEMO.BAS having a protection 
code of 10. When no protection is specified, a protection of 12 is 
automatically assumed. 

Project-Programmer Numbers 

In specifying the Account Number prior to requesting an OLD 
file, the user may optionally type a Project-Programmer number 
(giving the Account Number as two 2-digit numbers separated 
by commas instead of a single 4-digit number). In this way, the 
user may RUN files from another user's disk area. For example, 
both of the following are acceptable : 

OLD PROGRAM NAME — FILE 13,3 

where 13 is the Project Number and 3 is the Programmer Num- 
ber, or: 

OLD PROGRAM NAME--FILE 1303 

where 1303 is the account number. The two file name indications 
are equivalent. 

Restricted Accounts 

As an added system protection, BASIC checks to see if an 
attempt is being made to run BASIC under Accounts 1 or 2. If so, 
BASIC prints the error message : 



IMPROPER ACCOUNT # 

ABORT 

tBS 



thus preventing BASIC from interfering with the System Direc- 
tories or the System Library. 

9-28 



Catalog Format 

The CATALOG command prints file names and file extensions, 
file size, and file protection codes for the specified account (the ac- 
count under which the user logged into the system). For example: 



CATALOG 




NAME SIZE 


PROT 


TEMP00 1 


12 


8AS000.TMP 1 


1 7 


BAS100.TMP 1 


17 


IBOLD .BAC I 


12 


DEMO • BAS 1 


10 



Strings in BASIC 

EduSystem 50 BASIC has the ability to manipulate alphabetic 
information (or strings). A string is a sequence of characters, 
each of which is a printing ASCII character (see Appendix B). 
EduSystem 50 strings consist of one to six characters; strings of 
more than six characters are truncated on input to six characters. 

Variables can be introduced for simple strings, string arrays, and 
string matrices. A string variable is denoted by following the vari- 
able name with the dollar sign character ($). For example: 

Al$ A simple string of up to six characters. 

V$(7) The seventh string in the array V$(n). 

M$(l,l) An element of a string matrix M$(n,m). 

When string arrays or matrices are used, a DIM statement is 
required. For example: 

10 DIM V$< 10>,M$<5.»5) 

reserves space for eleven 6-character strings for the array V$, and 
space for 36 6-character strings for the matrix M$. 

READING STRING DATA 

Strings of characters may be read into string variables from 
DATA statements. Each string data element is a string of one to 
six characters enclosed in quotation marks. The quotation marks 
are not part of the actual string. For example: 



10 READ A$,B$,C$ 

200 DATA "JONES"., "SMITH", "HOWE" 
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The string JONES is read into A$, SMITH into B$, and HOWE 
into C$. If the string contains more than six characters, the ex- 
cess characters are ignored. The following program: 



10 READ AS 

20 PRINT AS 

30 DATA "TIME-SHARING" 

40 END 

RUN 



causes only 



TIME-S 



to be printed. 

String and numeric elements may be intermixed in DATA 
statements. A READ operation always fetches the next element 
of the appropriate type. In the following example: 



10 READ A,A$,B 

20 DATA "YES'S 2. 5, "NO"* 1 

2.5 is read into A, YES into A$, and 1 into B. 

The standard RESTORE statement (as described in Chapter 1) 
resets the data pointers for both string and numeric elements. Two 
special forms of the RESTORE command, RESTORE* and 
RESTORES, may be used to reset just the numeric or string data 
list pointers, respectively. For example: 



5* "NO'S 1 



10 


READ A,AS,B. 


20 


DATA "YES'S 2. 5* 


30 


PRINT A,A$,B 


40 


RESTORE* 


50 


READ A>AS*B 


60 


PRINT A,AS*B 


70 


END 


RUN 


1 


would print: 


• 2 


!.5 YES 


2 


.5 NO 
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If line 40 Were changed to RESTORE, this program would print: 



2.5 YES 1 

2.5 YES 1 



since the numeric as well as string data lists would be reset. 

PRINTING STRINGS 

The BASIC PRINT statement may be used to print string in- 
formation. If the semicolon character is used to separate string 
variables in a PRINT command, the strings are printed with no 
intervening spaces. For example, the program : 

10 read a$*b$,cs 

20 print c$;b$;a$ 

30 data ,"ing","shar".,"time-" 

40 END 

causes the following to be printed: 

TIME-SHARING 

INPUTTING STRINGS 

String information may be entered into a BASIC program by 
means of the INPUT command. Strings typed at the keyboard 
may contain any of the standard ASCII characters on the user ter- 
minal except back arrow (<-) and quotation mark ("). Back 
arrow is used in BASIC to delete the last character typed. Com- 
mas are used as terminators just as with numeric input. If a string 
contains a comma, the entire string must be enclosed in quota- 
tion marks. The following program demonstrates string input. 

10 INPUT A$,BS,C$ 
20 PRINT C$,B$,AS 
30 END 
RUN 

? JONES, SMITH, HOWE 

HOWE SMITH JONES 

READY . 

Strings and numeric information may be combined in the same 
INPUT statement as in the following example. Note that if an 
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input string contains more than six characters, only the first six 
are retained. 

10 INPUT A^A$,B$ 

20 PRINT A$,B$,A 

30 END 

RUN 

? 01754,MAYNARD.» MASS. 

MAYNAR MASS. 1754 

The numeric variable A is set to 1754 (leading zeros are de- 
leted), the string MAYNAR is put in the string variable A$, and 
the string MASS. is put into the string variable B$. To print the 
number 01754, the number could be input and output as a char- 
acter string. 

LINE INPUT 

Strings of more than six characters may be entered by means 
of the LINPUT (line input) statement. A LINPUT statement is 
followed by one or more string variables. For example : 

10 LINPUT A$( 1 ).,A$(2),A$<3).,A$(4>.,A$<5> 

The first six characters to be typed are stored in the first string 
variable, the next six in the second, and so until the line of input 
is terminated by a carriage return. 

Commas and quotes are treated as ordinary characters and 
hence are stored in the string variables. For example, if the follow- 
ing line were typed in response to the above LINPUT command: 

7MAYNARD., MASS. 01754 

then the values of the string variables would be as follows : 

A$(l) = "MAYNAR" 
A$(2J = "D, MAS" 
A$(3) ="S. 017" 
A$(4) ="54" 
A$(6)="" 1 



1 Strings may consist of zero characters. Such a string is empty (or null). 
If printed, it causes nothing to be output. The null string is usually repre- 
sented by a pair of- quotes with nothing between (""). The null string 
should not be confused with a string of one or more spaces. 
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In the above example, the maximum number of characters 
which could be typed would be 30. Any additional characters would 
be ignored. In all cases, the maximum number of characters 
which may be typed in response to LINPUT is 50. If a linger line 
is typed, the message LINE TOO LONG is printed. The input 
line is ignored and must be reentered. 

It is possible to mix numeric and string variables in a LINPUT 
statement, but this practice is not recommended. As an illustration 
of how this might be done, consider the example given earlier: 

10 LINPUT A,AS,B$ 

where the user might type: 

? 01754,MAYNARD, MA 

This still sets the numeric variable A to 1754 (when used in 
LINPUT statements, numeric input remains unchanged). How- 
ever, the string variable A$ would now be MAYNAR, and the 
string variable B$ would be D, MA. 

When inputting strings with LINPUT, the error messages: MORE? 
and TOO MUCH INPUT, EXCESS IGNORED cannot occur. 

WORKING WITH STRINGS 

Strings may be used in both LET and IF statements. For 
example: 



10 LET Y$="YES" 

20 IF Z$="N0" THEN 100 



The first statement stores the string YES in the string variable Y$. 
The second branches to statement 100 if Z$ contains the string 
NO. For two strings to be equal, they must contain \ the same 
characters in the same order and be the same length. In particular, 
trailing blanks are significant since they change the length of the 
string. "YES" is not equal to "YES ". 

The relational operators < and > may also be used with string 
variables. When used with strings, these operators mean "earlier 
in alphabetic order" or "later in alphabetic order", respectively. 
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They may be used to alphabetize a list of strings, for example. 
The relation operators >=, <=, and <> may be used in a similar 
manner. The arithmetic operations (+, — , *, /, t) are not defined 
for strings. Thus, statements such as LET A$ = 3*5 and LET 
C$ = A$+B$ have no meaning, and should not be used in a 
BASIC program. They will not cause a diagnostic to be printed; 
however, the results of such operations are undefined. 

THE CHANGE STATEMENT 

The CHANGE statement may be used to access and alter indi- 
vidual characters Within a string. Every string character has„ a 
numeric ASCII code (see Appendix B), a number which is used 
to indicate that particular character. The CHANGE statement 
converts a string into an array of numbers, or vice versa. The 
CHANGE statement has the form: 

100 CHANGE A TO AS 

or 

100 CHANGE AS -TO A 



where A$ is any string variable (or an element of a subscripted 
string variable) and A is an array variable with at least six ele- 
ments. Any array variables used in CHANGE statements must 
have appeared in a DIM statement with a dimension of at least 
six. 

The following program illustrates the use of the CHANGE 
statement by changing a string variable into an array of numbers. 

10 DIM AC6) 
20 READ AS 

30 change as to a 

40 print a<0>;a( i>;a<2>;ac3>;a<4>ja(5>;a<6> 

50 data "abcd> 

50 data "abcd" 

60 END 
RUN 

4 65 66 6 7 68 

The CHANGE statement takes each character of the string and 
stores its corresponding numeric (ASCII) code in elements one to 
six of the array. Remaining array elements are set to zero. The 
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length of the string (0-6 characters) is stored in the zero element 
of the array. In the example above, the character codes for A, 
B, C, and D are stored in A(l) to A(4). A(5) and A(6) are set 
to zero. The number 4 is stored in A(0) since the string A$ is 
four characters long. 

CHANGE may also be used to change an array of numeric 
codes into a character string as in the following program: 

10 DIM A<6) 

20 FOR 1=0 TO 5 

30 READ A< I) 

40 NEXT I 

50 CHANGE A TO AS 

60 PRINT AS 

70 DATA 5,69,68,85,53,48 

80 END 

RUN 

EDU50 

The length of the resulting string is determined by the zero ele- 
ment of the array. In the previous example, the string is five char- 
acters long. The elements of the array, starting at subscript 1, are 
assumed to be numeric character codes; these are converted to 
characters and are stored in the string. If any codes encountered 
are not valid character codes, or if an invalid string length is 
given, the message BAD VALUE IN CHANGE STATEMENT 
AT LINE n is printed, and execution is stopped. 

A BASIC string of less than six characters always has the re- 
maining character positions filled with zeros. For this reason, 
when such a string is changed to an array, the first six array ele- 
ments are set to zero. The CHANGE statement always fills six 
array elements, even though the strings may not be six characters 
long. The user should be careful to dimension the array used in a 
CHANGE statement to at least six. If a string of characters is 
transformed into an array of less than six elements, an undetected 
error will occur. 

The CHANGE statement is usable with strings not created by 
BASIC. It may, for example, be used to access files other than 
BASIC data files. Each string variable corresponds to three PDP-8 
words. The CHANGE statement treats these three words as six 
6-bit bytes, converts each 6-bit byte to its numeric character code 
equivalent and stores it in the corresponding array element. The 
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zero element of the array, the string length, is set equal to the 
number of bytes (characters) before the first zero byte. When 
reading unspecified data, there may be non-zero bytes following 
this zero byte. If so, they will be transferred to the array as well. 

THE CHR$ FUNCTION 

Occasionally, it is desirable to type a character other than 
those in the printing ASCII set, or to compute the value of a 
character to be printed. For this purpose, the CHR$ function can 
be used in a PRINT statement. The argument of the CHR$ func- 
tion is sent as an ASCII character to the Teletype. For example: 

10 FOR 1=0 TO 9 

20 PRINT CHR4<I+48>; 

30 NEXT I 

40 END 

prints 0123456789, since 48 to 57 are the ASCII values for the 
characters to 9. The following special characters can also be 
printed using the CHR$ function: 

Bell CHR$(7) 

Linefeed CHR$(10) 

Carriage return CHR$(13) 

Quote (") CHR$(34) 

Back arrow (^) CHR$(95) 

Form feed CHR$(12) 

The Teletype will accept characters from to 255 (decimal), 
many of which do nothing on most kinds of teletypes. Some of 
the special (non-printing) characters should not be used. For ex- 
ample, CHR$ (4) causes a Dataphone to disconnect. 

For each ASCII code there is a second acceptable form per- 
mitted in CHANGE and CHR$. The second code is obtained by 
adding 128 to the code given in the table in Appendix B. For ex- 
ample, CHR$ would type A in response to either 65 or 193 as 
an argument. 

Program Chaining 

Most programs are easily accommodated by EduSystem 50 
BASIC. If a program becomes very long, however, it may be 
necessary to break it into several segments. Typically, programs of 
more than two to three hundred statements must be split into more 
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than one file. A program that has been broken into more than 
one piece is commonly called a chained program. 

Each part of a chained program is saved on the disk as a sep- 
arate file. The last statement of each part to be executed is a 
CHAIN statement specifying the name of the next part of the 
program. The next file is then loaded and executed. It may in turn 
chain to still another part of the program. The general form of 
the chain command is: 

414 CHAIN "NAME" 



or 



414 CHAIN AS 

where NAME is the name of the next segment to be executed (one 
to six characters enclosed in quotation marks). The name of the 
next segment may also be contained in a string variable. In either 
case, the file of that name is loaded and run. Thus, the statement: 



999 CHAIN "SEG2" 

is equivalent to: 

OLD 

OLD PROGRAM NAME--SEG2 

RUN 

except that it happens automatically. Each separate part of the 
program automatically links to the next part of the program chain. 

The individual sections of a chained program may be either 
regular source files (.BAS) or compiled files (.BAC). If the sec- 
tions are source files, they must be compiled before they are run. 
A chained program runs more efficiently if all its sections have 
been compiled. Source and compiled files cannot be mixed in 
program files. 

If an error occurs while compiling or running a chained pro- 
gram, the name of the section containing the error is printed as 
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part of the error message. In all cases, whether a program ter- 
minates by an error or a STOP or END, BASIC returns to the 
first program in the chain. This is the one which is available for 
editing and rerunning when BASIC prints READY. 

Most chained programs require that information from one sec- 
tion be passed to the next. The first section may, for example, 
accept input values and perform some preliminary calculations. The 
intermediate results must then be passed to the next section of 
the programs. This passing of values is done by means of data 
files which are explained in the next section. Whenever a CHAIN 
operation is performed, program data which has not Been saved 
in a file is lost. Variable and array values are not automatically 
passed to the next program. 

Disk Data Files 

The standard BASIC language provides two ways of handling 
program data items. They may be stored within the program (in 
DATA statements) or they may be typed from the terminal. DATA 
statements, however, allow for only a limited amount of data. 
Also, the data is accessible only to the program in which it is em- 
bedded. Typing data from the terminal allows it to be entered 
into any program, but this is a time-consuming process. In either 
case, the data or results of calculations cannot be conveniently 
stored for future use. All these limitations may be overcome by the 
use of disk data files. 

A data file is separate from the program or programs which 
use it. It is a file on the disk similar to a saved program, but it • 
contains numbers or strings rather than program statements. 
This information may be read or written by a BASIC program. 
(Information in a data file is stored in a coded format; therefore, 
it cannot be listed by the BASIC Editor or EDIT.) (The maximum 
size of a data file is about 350,000 characters.) String and nu- 
meric information may be combined in a single data file. The num- 
ber of data files a user may have is limited to about 100, space 
allowing. When a file is first created, its contents are undefined. 

FILE RECORDS 

A data file is made up of logical units called records. A record 
may be as small as a single numeric or string variable. More typi- 
cally, it is a group of variables or arrays. The design of the pro- 
gram usually dictates the most efficient size of the record. If, for 
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example, the program manipulates a series of 5 by 5 matrices, 
each record could contain one such matrix. If the program op- 
erates on 80-character alphanumeric records, 14 string variables 
might comprise a record. 

The size and composition of a record are defined with a 
RECORD statement. Like the DIM statement, RECORD is fol- 
lowed by a series of variables. They may, however, be unsub- 
scripted as well as subscripted. For example: 



10 RECORD A<5*5) 
10 RECORD B$( 14) 
10 RECORD A,B, C$<8>.,D, E(5> 



The set of variables mentioned in a RECORD statement, taken 
together, constitute a record. Each element within the record is a 
field. Numeric and string information may be mixed to comprise a 
more convenient record. 

Variables mentioned in a RECORD statement should not appear 
in a DIM statement. The RECORD statement reserves variable 
space exactly as a DIM statements does. The difference is that the 
variables are also identified as being used for file input and output. 
Non-subscripted variables appearing in RECORD statements must 
not have been used previously in a program; therefore RECORD 
statements should always be the first statements in a program. 

Records may be any length. A long record is typically more effi- 
cient since more information is transferred in a single operation. 
Records should, however, be only as long as necessary since excess 
variables lengthen the file. In particular, it is important to remem- 
ber that all arrays and matrices have zero elements. The array 
A (5,5) has 36 elements, not 25. If A appears as part of a record, 
all 36 elements should be used. 

It is also useful to try to make record sizes 43 variables long, 
or a multiple of 43. Each RECORD statement reserves program 
variable space in units of 43 whether or not the record is that big. 
Unless the record fills this area, some program variable space is 
wasted. It is not worthwhile, however, to make an inherently small 
record 43 variables long just to conform to this convention; this 
would make the file unnecessarily large. 
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OPENING A DISK FILE 

Disk data files are completely separate from the programs 
which use them. Therefore, the program must specify which file or 
files it will use. The OPEN command is used for this purpose. 
OPENing a disk data file associates it with an internal file num- 
ber, either 8 or 9. (A program may have two disk data files open 
at one time.) For example: 

100 OPEN 9, "DATA10" 
100 OPEN 8,A$ 

The name of the file to be opened may be explicitly stated in the 
OPEN command. If it is, it must be contained in quotation marks. 
The file name may also be contained in a string variable, allowing 
the program to decide which file to open, perhaps on the basis 
of input from the program's user. In either case, the name of the 
file is preceded by the internal file number, either 8 or 9. This 
argument may also be an expression whose value is either 8 or 9. 

When a file is opened on an internal file number which has a 
file already open, the previously opened file is closed and the new 
file opened. * 

If no file of that name exists, the file is created. In either case, 
once the file is open, it is available for both reading and writing. 
BASIC disk data files are assigned an extension of .DAT which 
need not be specified as part of the file name in the OPEN state- 
ment. 

READING/WRITING DISK FILES 

Once open, files may be read and written, one record at a time, 
using the GET and PUT statements. GET statements read one 
record of information directly into the variable in the RECORD 
statement. PUT statements write the present values of the variables 
in the RECORD statement. Both GET and PUT statements are 
followed by the internal file number (8 or 9 or an expression), 
the line number of the RECORD statement containing the vari- 
ables to be transferred, and the name of a control variable. For 
example: 

100 RECORD A,B,C$<30),D<8) 

1 10 OPEN 8#"FILE-1" 

120 LET 1=0 

130 GET 8, 100,1 
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The control variable specifics the tile record to be transferred. 
In the example above, FILE1 is opened as internal file 8. The 
value of the control variable, I, is zero. The GET statement in 
line 130 reads the first record (record 0) of FILE1 into A, B, 
and the arrays C$ and D. Single numeric values are read into A 
and B, 31 strings are read in C$, and 9 numeric values arc read 
into D. After each transfer, whether it is a GET or a PUT, -the 
value of the control variable is automatically incremented. Suc- 
cessive GET's or PUT's automatically proceed to the next record 
of the file. 

The PUT statement has a similar format. For example, if line 
1 30 of the preceding program had been: 

130 PUT 8, 100, I 



the present values of A, B. C$, and D would have been written 
to the first record of FILE 1 . 

File records may be accessed randomly by setting the control 
variable to the desired record number before doing the GET or 
PUT. Single records may be read, changed, and then written with- 
out processing the entire file. When reading a file, the record ref- 
erenced in the GET statement must, of course, be the same as 
the record referenced in the PUT statement which- wrote the data 
onto the file. The total length of the record and the relationship 
of string and numeric fields within the records used for the GET's 
and PUTs must be the same. If they arc not. improper informa- 
tion will be read and written. 

New files may be created by opening a file which does not 
already exist. As successive records are written onto the file, its 
length is extended as necessary. When a new file is created, it is 
useful to immediately write an end-of-file code in the last record. 
Writing the last record first forces the entire file to be allocated, 
making sure that enough disk space is available. It also provides an 
end-of-file mark. Programs which read this file may then check 
for this end-of-file mark to avoid reading past the end of the data 
file which results in an error. 

Existing files may be enlarged by writing a new record farther 
out. If the program does not know how big the file will be. it may 
simply write records to the file in sequence. 
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The file will be automatically extended. When all the records have 
been written, one final end-of-file mark can be added. 

In general, all records read or written on a specific file should 
be the same length, i.e., contain the same number of variables. 
However, if the user is careful he may intermix records of differ- 
ent lengths in a file. Suppose the following statement is executed: 

40 PUT 8, 100,N 

and the value of N is n and the record specified by statement 100 
is of length m. The PUT statement will write m variables in the 
file starting at the m*n variable. The simple rule for computing 
the first variable in the file to be accessed is the record length 
times the record number. (Remember the first record is record 
number zero.) 

CLOSING/DELETING DISK FILES 

When all work has been completed on a data file, it should be 
closed with a CLOSE statement. Once the file is closed, it may 
not be read or written unless it is reopened. The file does, how- 
ever, remain on the disk and is available for future use. The 
CLOSE statement is followed by the internal file number to be 
closed C8 or 9 ) . For example : 

950 CLOSE 8 

If the disk file was just created for temporary' scratch use (to 
pass parameters during a CHAIN, for example), it should be 
deleted at the end of the program instead of closed. The UNSAVE 
statement is used to delete files. For example : 

10H0 UNSAVE- 9 

The file opened on internal file number 9 is deleted from the disk. 
Both CLOSE and UNSAVE may be followed by an expression 
equating to 8 or 9 instead of a constant. 

Open disk data files are automatically closed at the end of the 
program, unless the program CHAINs to another program. In this 
case, all open files remain open and the new program may access 
them without executing an OPEN statement. 
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DECtape Data Files 

Large permanent data files are best stored on DECtape rather 
than on disk. Each DECtape holds up to 380,000 characters of 
information. DECtape data files may be dismounted for safe- 
keeping, thereby insuring their privacy. Data files on DECtape 
are similar to files on disk except that they do NOT have filenames. 
Each reel of DECtape is treated as a discrete data file. When the 
tape is mounted on a DECtape drive, records may be read and 
written Arectly onto the tape. 

A DECtape data file may be used by only one user at a time. 
Once a DECtape unit is assigned, a single user has exclusive 
access to it until he releases it. Each DECtape drive has a WRITE 
LOCK switch which physically prevents any write operations to 
that unit. If the WRITE LOCK switch is set, programs may not 
write on the tape even if the unit is assigned. 

DECtape data files may be used in a variety of ways. Programs 
which need large data files should use DECtape to avoid con- 
suming large disk areas. Administrative files, such as student or 
employee records, are best stored on DECtape. Since they are 
removable and can be write-locked when mounted, their use can 
be tightly controlled. DECtapes are also useful for information 
retrieval. A data tape may be kept permanently mounted but 
write-locked. Individual users may run programs which assign and 
query that file, then release it for others to use. 

DECTAPE FILE RECORDS 

Records for DECtape data files are specified the same way as 
for disk data files: with a RECORD statement. All rules for disk 
records apply to DECtape records. In fact, the same RECORD 
statement may be used for both a DECtape and disk file. (This 
is useful when transferring a tape file to a disk file for processing. 
Access to disk data files is considerably faster than to DECtape 
data files.) 

It is possible to specify any record length for a DECtape data 
file, but a size of 43- variables is suggested, even more strongly 
than for disk data files. DECtapes are physically structured into 
blocks, each of which holds exactly 43 variables. If the record 
specified by the program is, for example, 44 variables, it requires 
two full blocks on the tape. 

Records which are multiples of 43 variables are efficient in 
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utilizing DECtape space but are not efficient in speed. Such records 
are written in consecutive DECtape blocks. The tape unit cannot 
read or write consecutive blocks without stopping the tape and 
rewinding it slightly (rocking). This tape rocking also occurs 
when single block records (43 variables or less) are read or writ- 
ten as consecutive DECtape records. (In this case, each DECtape 
file record corresponds to a physical tape block.) 

The most efficient way to utilize DECtape is to make records 
43 variables in length and write them onto every tenth record in 
the file (records 0, 10, 20, etc.). When the entire length of the tape 
has been traversed (the last block of the tape is number 1473), 
write next into records 1, 11, 21, etc. In this way, every record 
is eventually filled. Programs which will be used repeatedly should 
access the tape in this manner. 

OPENING A DECTAPE FILE 

DECtape data files, like disk files, are completely separate from 
the programs which use them. Therefore, the program may specify 
which tape, or tapes, it will use. The OPEN statement is used for 
this purpose. Since DECtape files do not have names, 2 the OPEN 
statement specifies the DECtape unit number to be used. It is 
assumed that the proper tape reel has been mounted. If the file 
is to be updated, the unit should be write-enabled. If not, it should 
be write-locked. The OPEN statement is followed by the unit 
number to be used (0-7). 



100 OPEN 2 
100 OPEN 7 



The unit number could be an expression. Making the unit num- 
ber a variable is very useful since it is hard to predict which units 
will be available at the time the program is run.' When the unit 
specification is a variable, the user may mount the file on any 
free unit, then INPUT the number into the program. 

When the OPEN statement is executed, the indicated DECtape 
unit is automatically assigned to the user. It cannot subsequently 
be assigned to any other user. Thus, it is possible to try to open, 



2 It is important to note that BASIC data file DECtapes are not the same 
as the file-oriented DECtapes used by COPY. There is no directory on a 
BASIC DECtape file. Each tape is considered to be one file of data. 
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hence assign, a unit which is already assigned. If, in the above 
examples, units 2 and 7 were already assigned to the current user 
or any other user, the program would be terminated arid an error 
message printed. 

An alternative form of the OPEN statement allows the pro- 
gram itself to handle this situation. OPEN statements may include 
an ELSE clause which specifies a line number. If the OPEN 
statement fails, BASIC automatically performs a GOTO to this 
line number. For example : 

100 OPEN 2 ELSE 900 

If unit 2 is available, it is assigned and BASIC goes on to execute 
the next statement. If unit 2 is not available, statement 900 is exe- 
cuted next. Statement 900 could print a message and perhaps ask 
for an alternate unit number. 



READING/WRITING DECTAPE FILES 

DECtape data files are read and written using the same GET and 
PUT statements as are used for disk data files. The internal file 
number is a number between and 7, or an expression. Unlike 
disk data files, DECtape data files are of a constant length equal 
to the capacity of the tape. The exact number of records per reel 
depends on the record size as follows: 

Record Size Tape Capacity 

»— — — ■ !! ■■ » ■■■■■■ — ■ !■■■ ■■■ — II — — — — f i 

1-43 variables 1474 records 

44-86 variables 737 records 

87-129 variables 491 records 

As indicated in the section on DECtape data records, a record 
size of 43 variables or less is recommended since it conforms to 
the physical blocking of the tapes themselves. It is also desirable 
to space the records along the tape so that the tape does not waste 
time rocking. The following subroutine could be used to write 
1474 records on the tape in this fashion. It assumes that R is set 
to zero before it is called the first time and that the unit number 
is in U. 
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500 REM SUBROUTINE TO WRITE RECORDS ALONG TAPE 

510 REM WRITES ONE RECORD EACH TIME CALLED 

515 PUT U/10,R 'REMEMBER THIS INCREMENTS R 

517 LET R=R+9 'SPACE OUT 10 BLOCKS 

524 IF R<1474 THEN 550 'OK TO RETURN 

530 IF R=1479 THEN 560 'TAPE IS'FULL 

540 LET R=R- 1479 

545 IF R>0 THEN 550 

547 LET R=R+10 

550 RETURN 

560 STOP 'TAPE IS FULL 



The following function may also be used to convert a logical 
record number (0 to 1469) to a physical record block spaced 
along the tape. This function does not use blocks 0-3. These blocks 
are, therefore, available for a header or label. Both the subroutine 
above and the function below assume a record length of 43 vari- 
ables or less. 

FNC(X) = (X-INT(X/147)*147)*10 + INT (X/147)+4 

Once opened, any record on the tape may be read. The tape 
unit must, however, be write-enabled if it is to be written. Trying 
to' PUT to a write-locked tape is an error. 

CLOSING DECTAPE FILES 

Once all work on a DECtape data file has been completed it may 
be closed. Closing a file releases the tape unit and makes it avail- 
able to other users. Thus, if the tape contains important information 
(and especially if it is write-enabled) the CLOSE should not be 
done until the tape reel has been removed. If no CLOSE statement 
is encountered in the program, the unit remains assigned after 
the program has finished. The DECtape unit remains assigned 
until a Monitor RELEASE command is executed or the user logs 
out. An example of a CLOSE statement follows: 

1 1MH CLOSE 6 

USING DECTAPE DATA FILES WITH OS/8 FORTRAN 

Numeric DECtape data files written by BASIC may be read by 
OS/8 FORTRAN with the FORTRAN RTAPE and WTAPE 

subroutines, and vice-versa. (String and Hollerith variables use 
different character codes.) Thus, it is possible to use BASIC to 
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prepare an input or update tape for a stand-alone FORTRAN pro- 
gram. This provides a convenient way to do big jobs in off-hours, 
without having to leave the time-sharing mode for very long. 

Line Printer Output 

If a line printer is available, it may be used both to list BASIC 
programs and to serve as an output device for the programs 
themselves. The line printer may only be used by one user at a time. 
The statements associated with line printer output are LLIST 
and LPRINT. 

LLIST is similar to the LIST command except that the program 
listing is output to the line printer rather than to the Teletype. The 
LLIST command assumes that no other user has the line printer 
assigned and responds by typing WHAT? if the line printer is not 
available. After the listing is complete, the line printer is released 
and is available to any user. 

BASIC programs may use the line printer as an output device 
during execution by means of the LPRINT statement. LPRINT is 
exactly like PRINT except that the information goes to the line 
printer rather than to the Teletype. All formatting conventions 
of the PRINT statement are available with LPRINT. In particular, 
CHR$(12) may be used to skip to the top of the next form 
(page). 

The LPRINT statement also assumes that no other user has the 
line printer assigned. However, using this statement when the line 
printer is not available causes the program to terminate. Once 
LPRINT successfully assigns the line printer, it remains assigned 
until the program terminates. 

The OPEN and CLOSE statements may be used to assign and 
release the line printer. An OPEN statement with a device number 
of 1 1 assigns the line printer, or if it is not available and an ELSE 
clause is specified, transfers control to the line number specified 
in the ELSE clause. CLOSE 1 1 releases the line printer. 

Paper Tape Output 

The high-speed paper tape punch may also be used as an output 
device. Like the line printer, the paper tape punch may only be 
used by one user at a time. OPEN and CLOSE statements with an 
internal file number of 10 will, respectively, assign and release 
the paper tape punch as shown in the following example: 
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10 OPEN 10 ELSE 100 'GOTO 100 IF PUNCH UNAV/AILABLE 
20 CLOSE \<A 

Here too, a GOTO statement in combination with an ELSE clause 
can be used to transfer program control if the paper tape punch 
is unavailable. 

The LPRINT statement causes output to the paper tape punch 
when this device has been assigned. For example : 

10 OPEN 10 

20 LPRINT "THIS GOES TO PTP. " 

causes the statement THIS GOES TO PTP. to be punched onto 
paper tape. If the paper tape punch is not released with a CLOSE 
statement, it remains assigned after the program terminates. 

Internal .Data Codes 

Using the file I/O capabilities and the CHANGE statement, it 
is possible to examine data which was written on a DECtape or 
disk file by a program other than BASIC. There are two data for- 
mats : numeric and string. 

NUMERIC DATA 

Each numeric value in BASIC is three PDP-8 words long. The 
storage format for numeric data is as follows: 








1 




8 


9 


11 


WORD 1 










1 


^ 




J 


V 




SIGN 1 

BINARY EXPON 


= NT— 


♦ 




. 













11 


WORD 2 









MANTISSA 




ii 


WORD 3 





LOW ORDER MANTISSA 



A one in the sign bit means that the number is negative. The 
exponent is kept in excess 200 form where: 

200 8 is2° 
201 8 is 2 1 
177«is2- 1 
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The assumed decimal point is between bit 8 and bit 9 of word 1. 
AlSO, the number is always normalized, meaning that bit 9 is al- 
ways 1 unless the number is zero. (Zero is represented by three 
zero words.) Note that this format is the same as the format used 
by FORTRAN-D. 



Table 9-3. BASIC Internal Data Codes 



6-Bit 






6-Bit 






Byte 


Byte 


ASCII 


Byte 


Byte 


ASCII 


Octal 


Decimal 


Char. 


Octal 


Decimal 


Char. 


00 





NULL 


40 


32 


? 


01 


1 


SPACE 


41 


33 


@ 


02 


2 


! 


42 


34 


A 


03 


3 


55 


43 


35 


B 


04 


4 


# 


44 


36 


C 


05 


5 


$ 


45 


37 


D 


06 


6 


% 


46 


38 


E 


07 


7 


& 


47 


39 


F 


io 


8 


» 


50 


40 


G 


11 


9 


■0 


51 


41 


H 


12 ' 


' 10 


) 


52 


42 


I 


13 


11 


* 


53 


43 


J 


14 


12 


+ 


54 


44 


K 


15 


13 


5 


55 


45 


L 


16 


14 




56 


46 


M 


17 


15 




57 


47 


N 


20 


16 


/ 


60 


48 


O 


21 


17 





61 


49 


P 


22 


18 


1 


62 


50 


Q 


23 


19 


2 


63 


51 


R 


24 


20 


3 


64 


52 


S 


25 


21 


4 


65 


53 


T 


26 


22 


5 


66 
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STRING DATA _ ^ , o Each word 

Each string variable is three J-ur . riable is filled 

rrsr " sr^s « -— % ^ r - 

^,TbASIC program may — the ^*£™% * 
performing a CHANGE on that variable. The six bytes will o 
translated as if they were internal character codes tOt Df\Otv 
string characters. Table 9-3 shows how this translation interprets 
the 64 possible types. Note that after such a CHANGE, the 
Oth element of the array contains a count of the number of char- 
acters occurring before the first null. 

Error Messages 

Most programs, especially if they are at all complex do not exe- 
cute correctly the first time they are tried. EduSystem 50 checks 
all BASIC statements when they are entered and before executing 
them. If it cannot execute a statement, it informs the user by print- 
ing one of the error messages shown in Table 9-4, followed by the 
lihe number, if present, in which the error occurred. 

In addition, the system checks for non-fatal execution errors 
and notifies the user that he performed a computational range 
error. When errors of this type occur, the messages shown in 
Table 9-5 appear, followed by the line number in which the error 
occurred. 



Table 9-4. BASIC Error Messages 



Message 



Explanation 



WHAT? 

SYSTEM I-O ERROR 

PROGRAM TOO LARGE 

NO END STATEMENT IN 
PROGRAM 

ILLEGAL INSTRUCTION 



The editor cannot understand the com- 
mand given. 

BASIC was unable to perform the 
desired disk I/O. 

The program js too large to be exe- 
cuted. Make it smaller. 

All programs must have an END 
statement. 

A statement was used which is not 
one of the legal BASIC statements. 
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Table 9-4 (Cont.). BASIC Error Messages 



Message 



Explanation 



ILLEGAL SYNTAX 

DEF STATEMENT 
MISSING 

FOR WITHOUT NEXT 
NEXT WITHOUT FOR 
ILLEGAL CHARACTER 

ILLEGAL LINE NUMBER 

ILLEGAL OPERATION 



STACK OVERFLOW 

ILLEGAL CONSTANT 

OUT OF DATA 

ILLEGAL FORMAT 

DIMENSION TOO LARGE 

UNDEFINED LINE 
NUMBER 

BAD FILE NAME 



The expression in a statement does 
not agree with the BASIC syntax. 

A function needing a DEF statement 
exists in the program. 

There is an unmatched FOR state- 
ment in the program. 

The NEXT statement indicated has no 
preceding FOR statement. 

The user attempted to use an illegal 
character in the statement being pro- 
cessed. 

The format of the line number being 
used in a GOTO or IF statement is 
not acceptable. 

The expression being processed does 
not agree with the BASIC rules (this is 
probably due to unmatched paren- 
theses). 

The user programmed a situation in 
which the expression is too compli- 
cated to be executed. 

The format of a constant in the state- 
ment being processed is not valid. 

An attempt was made to READ more 
data than was supplied by the user. 

The structure of the statement does 
not agree with BASIC syntax. 

Too large an array to fit in the avail- 
able core. 

The line number appearing in a 
GOTO or an IF-THEN statement does 
not appear in the program. 

The file name used is not valid, e.g., 
it does not begin with a letter. 
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Table 9-4 (Cont.). BASIC Error Messages 



Message 



Explanation 



SUBSCRIPT ERROR 



MISUSED TAB 



GOSUB— RETURN ERROR 



ILLEGAL FOR NESTING 

ILLEGAL VARIABLE 

DISK FULL 

IMPROPER ACCOUNT # 

ABORT 

tBS 

BAD FILE FORMAT 



MISUSE OF CHR$ 



BAD VALUE IN CHANGE 
STATEMENT 



TIME LIMIT EXCEEDED 



A negative subscript was used for an 
array. 

The TAB function was used in an in- 
valid manner. TAB can appear only 
in PRINT statements. 

Subroutines are too deeply nested or 
a RETURN statement exists outside 
a subroutine. 

FOR-NEXT loops are too deeply 
nested or NEXT appears before FOR. 

An illegal variable was used in an 
array. 

There is no more storage space on the 
system disk. 

A user logged in under account num- 
bers 1 (system account) or 2 (system 
library) and tried to run BASIC. This 
is prohibited. 

The program specified in response to 
OLD PROGRAM NAME was not 
acceptable to BASIC. This is gener- 
ally caused by: (1) trying to load an 
obsolete compiled (.BAC) file, or (2) 
trying to load a non-BASIC (FOR- 
TRAN or PAL-D) program. 

The CHR$ function was used in an 
invalid manner. CHR$, like TAB, 
can appear only in PRINT state- 
ments. 

While performing CHANGE A TO 
A$, one of the elements of the array 
A was found to contain an illegal 
value. 

The number of statements executed 
by a job has exceeded the maximum 
established by the system manager. 
Generally, some error was made and 
the program is caught in a loop. 
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Table 9-4 (Cont.). BASIC Error Messages 



Message 



Explanation 



PROGRAM IS "progname" 



PROGRAM NOT FOUND 



BAD SLEEP ARGUMENT 



ARRAY OR RECORD 
USED BEFORE 
DEFINITION 



IMPROPER DIM OR 
RECORD STATEMENT 



CAN'T CREATE FILE 



CAN'T DELETE FILE 



UNOPEN DISK UNIT 



This message may immediately fol- 
low an error message, to identify the 
current program in a series of 
CHAINed programs. If there is no 
CHAIN, this message will not occur. 

The file which the user tried to ac- 
cess with a CHAIN statement does 
not exist in his disk area. The PRO- 
GRAM IS message will also occur. 

The argument of the SLEEP state- 
ment must have a number greater 
than or equal to 0, and less than or 
equal to 4095. 

The RECORD statement must occur 
before any reference to it is made. 
A DIM statement must occur before 
an array is used. (RECORD and 
DIM are placed at the beginning of 
a program. ) 

Syntax error in DIM or RECORD 
statement, or an array name that was 
previously dimensioned is reused. 
(Replaces IMPROPER DIM STATE- 
MENT IN LINE n). 

An OPEN statement tried to create 
a file, but there is: (a) no disk space 
available, (b) no file name specified, 
or (c) a null string has been given 
as the file name. 

UNSAVE cannot delete a file. This is 
usually due to the fact that another 
user has the file open, or the file is 
protected with a code ^20. 

The user tried to do a GET, PUT', or 
UNSAVE to device 8 or 9, without 
a file being previously opened on the 
device. 
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Table 9-4 (Cont). BASIC Error Messages 



Message 



Explanation 



DEVICE BUSY 



INVALID RECORD NO. 



ON INDEX OUT OF 
RANGE 

INVALID DEVICE NO. 



GET BEYOND END OF 
FILE 



GET/ PUT ERROR 



CHAIN TO BAD FILE 



The user tried to OPEN DECtapes 
0-7, line printer, or paper tape punch, 
but the device was unavailable, and 
there was no ELSE clause in the 
OPEN statement. 

The record number must be a num- 
ber which is greater than or equal to 
and less than or equal to 4095. For 
DECtape I/O the maximum record 
number is limited further by the 
DECtape size. 

The value of the index is less than 
one, or greater than the number of 
statement numbers. 

The device number in the file I/O 
statement is not between and 1 1 in- 
clusive, (or X and 1 1 inclusive where 
X is a number set by the system 
manager). 

Disk data file is too small to have 
a record with the number specified in 
the GET statement at line n. 

A hardware error occupied in GET 
or PUT. (This is usually due to a 
DECtape unit being write-locked.) 

The file specified by the CHAIN has 
an invalid format; it is not a BASICS 
format file. The "PROGRAM IS..." 
message will follow this error mes- 
sage. The program name will be the 
name of the bad file. 
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Table 9-5. Non-Fatal Execution Errors 



Message Explanation 



/0 Zero divide — an attempt was made to divide by zero. 

The largest possible number is used for the result. 
OV Overflow — the result of a calculation was too large 

for the computer to handle. The largest possible 

number is used for the result. 
UN Underflow — the result of a calculation was too small 

for the computer to handle. Zero is used for the 

result. 
LN An attempt was made to compute the logarithm of 

zero or a negative number. Zero is used for the 

result. 
SQ An attempt was made to compute the square root of 

a negative number. The square root of the absolute 

value is used for the result. 
PW An attempt was made to raise a negative number 

to a fractional power. The absolute value of that 

number raised to the fractional power is used. 
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FOCAL 

FOCAL (FOrmula CALculator) is an on-line, interactive, 
service program for the PDP-8 family of computers, designed to 
help scientists, engineers, and students solve numerical problems. 
The language consists of short imperative English statements 
which are easy to learn. FOCAL is used for simulating mathe- 
matical models, for curve plotting, for handling sets of simultaneous 
equations, and for many other kinds of problems. 

To call FOCAL, type: 

.R FOCAL 

FOCAL enters its initial dialogue, and asks if its extended func- 
tions are to be retained. The extended functions are exponential, 
sine, cosine, arctangent, and logarithm. If the FOCAL program 
to be run uses any of these functions, the user responds YES. 
If not, the user responds NO to free more space for the user pro- 
gram. Without the extended functions, there is room for approxi- 
mately 1800 characters of program. If the extended functions are 
retained, there is room for approximately 1 100 characters. 

Using FOCAL Commands 

Whenever FOCAL prints any asterisk, it is in command mode, 
and the user may type any of the FOCAL commands in response 
to the asterisk. FOCAL commands may be direct or indirect. A 
direct command is typed directly after the asterisk and is -executed 
immediately. The format for direct commands is: 

"COMMAND 

An indirect command is always identified by a line number. 
Indirect commands are not executed until program control passes 
to the line number associated with the command. The format for 
indirect commands is : 

*GG.ss COMMAND 

When the user is typing indirect commands, he may use any 
line number in the range 1.01 to 31.99, except those ending in 
.00. Numbers such as 1.00 or 31.00 are illegal as line numbers; 
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; they are used to identify an entire group of line numbers. Line 
numbers are typed in the format: 

GG.ss 

where GG is the group number and ss is the step number. It is 
not necessary to type two digits after the decimal; e.g., 2.1 is 
equivalent to 2.10. 

All FOCAL commands must be followed immediately with a 
space. All FOCAL command lines must be terminated with the 
RETURN key. 

FOCAL Overview 

FOCAL consists of 12 commands which are all the beginner 
needs to write programs. FOCAL commands may be typed in their 
entirety or abbreviated. The FOCAL commands are: 



Command 
TYPE 

ASK 

SET 

GO or GOTO 

IF 

DO 

RETURN 
QUIT 

FOR 



Explanation 

Used to print text, results of cal- 
culations, and values of variables. 

Used to assign values to variables 
from the keyboard. 

Used to define variables and eval- 
uate expressions. 

Used to direct program control to 
the lowest line number, or to some 
specific line number. 

Used to direct program control 
conditionally after a comparison. 

Used to cause a specific line or 
group of lines to be executed. 

Used to terminate DO routines. 

Used to halt program execution 
and return control to user. 

Used to increment a number and 
execute a user-specified command 
for each value of the number in- 
cremented. 
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Command Explanation 

COMMENT or Used for comments or non-ex- 

CONTINUE ecutable program steps. 

ERASE or Used to erase part of a program 

ERASE ALL or an entire program. 

MODIFY Used to edit words or characters 

on a program line. 

These commands are explained in detail with actual computer 
output in this section. For the convenience of the user, a detailed 
FOCAL command summary is included in Table 9-7. 

Numbers. 

A FOCAL number may be any decimal number between — 10 0ts 
and 10 01B . Numbers may be written signed (+ or — ) or unsigned, 
either with a decimal point and a fractional part or in exponential 
format (see Data Formats) with a mantissa and exponent. In 
FOCAL, all numbers are internally represented in exponential 
format, retaining up to six significant digits. If more than six 
digits are specified, the number will be rounded to six digits. The 
following numbers are identical in FOCAL : 

60 

60.00 

6E10 

600E-10 

60.00003 

Variable Names 

FOCAL variable names may consist of either one or two char- 
acters. The first character must always be alphabetic; however, it 
cannot be an F because FOCAL reserves that character for func- 
tion names (see FOCAL Functions). The second character may 
be either alphabetic or numeric. The user may write variable names 
consisting of more than two characters, but FOCAL uses only the 
first two characters to identify the variable. 3 Therefore, the first 
two characters must be unique. 



3 A variable is represented internally as a binary fraction with an ex- 
ponent. See Data Formats. 
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♦SET A=56789 

♦SET B= 123456 

♦SET Cl=15 

♦SET C2=30 

♦SET DEPTH=10 

♦SET DISTANCE=C1+C2 

Variables may also be subscripted. For a discussion of what 
subscripted variables are and how they are used, see Subscripted 
Variables. 

Arithmetic Operations 

To print the results of arithmetic calculations, the user types 
the FOCAL command TYPE followed by a space and the data 
to be calculated. Then he presses the RETURN key, and FOCAL 
prints the answer. For example: 

♦TYPE 6+10-3-1 
= 12.0000+ 

The above example shows two of the arithmetic operations 
(4- and — ) performed by FOCAL. Arithmetic operations are per- 
formed from left to right except when the operation to the right 
has priority or when enclosures are used. (See Enclosures.) 

♦TYPE 6+5; TYPE 5+2-3; TYPE 10-6 
= 11.0000= 4.0000= 4.0000+ 

NOTE 

Several commands may be typed on the 
same line if they are separated by semi- 
colons (;). This is true for all FOCAL com- 
mands .except the LIBRARY commands. 

Unless indicated otherwise, FOCAL mathematical computations 
retain an accuracy of six. significant digits. 
PRIORITY OF ARITHMETIC OPERATIONS 
The FOCAL arithmetic operations priorities are: 

First priority — exponentiation (t) 4 
Second priority — multiplication ( * ) 



4 When exponentiation is performed by FOCAL, the power to which a 
number is raised must be a positive integer. If a calculated exponent ex- 
ceeds the limits of size, no error message is given. The result will go to 
zero. 

9-64 



Third priority — division (/) 
T . . J addition (+) 

" y J subtraction (— ) 

When FOCAL evaluates an expression which includes several 
arithmetic operations, the above order of priority is followed. 
Therefore, FOCAL evaluates 

♦TYPE 25+5*2+5 

to have a value of 



= 40.0000* 

because multiplication (*) has a higher priority than addition (+). 

ENCLOSURES 

The order of executing arithmetic operations is also influenced by 
enclosures. Three kinds of enclosures may be used with FOCAL : 
parentheses (), square brackets [] 5 , and angle brackets <>. 
FOCAL treats them all the same. For example, the result of the 
expression: 

♦TYPE (A+B)*<C+D>*(E+F> 



is the same as the result of: 

♦TYPE (A+B)+(C+D)*(E+F) 

If the expression contains enclosures within enclosures (called 
nesting), FOCAL executes the contents of the innermost enclo- 
sures first and works outward. 



♦TYPE <5*<2+3>-5)t2 
= 400.0000* 



5 [and] are typed by SHIFT/K and SHIFT/M, respectively. 
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Input/ Output Commands 

TYPE COMMAND 

The TYPE command is used to print results of calculations, 
values of variables, text or character strings, and variable tables. 
TYPE may also be used to print combinations of text and variables. 

Example 1 — Result of a Calculation: 

♦TYPE 1+1 
=2.000 0* 

Example 2 — Value of a Variable or Variables : 

♦ SET N=5+5; SET M=30 
♦TYPE N,M 

= 10.0000= 30.0000* 

Example 3 — Text: 

♦ TYPE "THIS IS A LINE OF TEXT", j6 
THIS IS A LINE OF TEXT 

* 

Example 4 — Variable Tables: 



♦TYPE $ 

N8(00)= 10.0000 

M8(00)= 30.0000 

* 

The user may command FOCAL to print all of the user-defined 
variables (variable table) by using the TYPE command and a 
dollar sign ($). 

If a variable consists of only one letter, an at sign (@) is in- 
serted as a second character in the variable table printout, as shown 
in the example above. 

♦SET N=25 
♦TYPE "N lS"jti 
N IS= 25.0000* 

NOTE 

Any variable, constant, or expression in a 
TYPE or ASK command must be followed 
by a comma, semicolon, or carriage return. 



6 The exclamation mark ( ! ) causes a carriage return and line feed. 
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ASK COMMAND 

The ASK command is normally used in indirect commands to 
enable the user to input numerical data during the execution of his 
program. The ASK command is similar to the TYPE command in 
form, but only single variable names, not expressions, are used; 
and the user types the values in response to a colon (:) printed by 
the ASK command. 

*1 1.99 ASK X,Y,Z 

When FOCAL encounters line 11.99 in the above example, it 
prints a colon and waits for the user to type a value (in any 
format) and a terminator 7 for the first variable. This process con- 
tinues until all the variables in the ASK command have been given 
values. 

The value is assigned to the variable when the user types a termi- 
nator; so any time before the terminator is typed, the value can be 
changed. If the user types back arrow ( *- or SHIFT/O) immedi- 
ately after the value and before he types a terminator, he can then 
type the correct value and a terminator. 



♦ASK X,Y,Z 




:5 




:6 




:8-7 




*TYPE Xj \jY, \ 


!,Z 


= 5.0000 




= 6.0000 




= 7.0000* 





User typed 5 and RETURN key. 
User typed 6 and RETURN key. 
User typed 8, «-, 7 and RETURN 
key. 



The ALT MODE key is a special non-spacing terminator which 
enables the user to have a previously assigned value unchanged. 



*ASK X.,Y,Z 

:3 

::12 

♦TYPE X, UY, !,Z 

= 3.0000 

= 6.0000 

= 12.0000+ 



User typed ALT MODE because 
he did not want to change the 
value of Y. 



t Terminators are SPACE, comma, ALT MODE, and RETURN keys. If 
the user types the RUBOUT key, it is ignored. 
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Text Output with ASK 

The ASK command, just as the TYPE command, may be used 
to print text. Carriage return and line spacing are controlled the 
same as with the TYPE command (see Data Formats). 

♦ASK "WHAT IS YOUR AGE?" AGE 

WHAT IS YOUR AGE?: 19 

* 

The word following the text in the command line (AGE, in this 
example) is the variable. 

Computational Command 
SET COMMAND 

The SET command enables the user to assign a numerical value 
to a variable and store both the value and the variable. Then, when 
he uses the variable in an expression, 8 FOCAL automatically sub- 
stitutes the numerical value that the user previously specified: 

♦SET E=2. 71828 

♦SET PI=3. 14159 

♦TYPE "PI TIMES E", PI + E 

PI TIMES E= 8.5397+ 

The value of a variable may be changed at any time by another 
SET command. 

♦ SET Al = 3t2 
♦SET A1=A1+1 
♦TYPE Al 

= 10.0000+ 

Control Commands 

GO OR GOTO COMMAND 

The GO command causes FOCAL to go to the lowest numbered 
line in the program and begin executing the indirect commands. 

♦1.1 SET A=l 

♦1.3 SET B=2 

♦1.5 TYPE A,B 

♦ GO 

= 1.0000= 2.0000: 



8 An expression is a combination of arithmetic operations or functions 
which may be reduced to a single number by FOCAL. 
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In the above example the GO command caused execution to begin 
at line 1.1. 

The GOTO command causes FOCAL to go to a specific line in 
the program and begin executing the indirect commands in ascend- 
ing line number order. 

♦ERASE 

♦1.1 SET A= 1 

♦1.3 SET B=2 

♦1.5 TYPE A, B 

♦ GOTO "1.3 

= 0.0000= 2'. 0000: 

• 

: ERASE 
♦ 

In the preceding example, A and B are equal to zero at the start 
of the program. The ERASE and ERASE ALL commands are used 
to ensure that all variables are equal to zero until they are assigned 
a specific value. Since the GOTO command causes program execu- 
tion to begin at line 1.3, line 1.1 is never executed and A is not set 
to 1. 

IF COMMAND 

The IF command is a conditional command used to transfer pro- 
gram control after a comparison. The normal IF command format 
is: 

IF space (expression) Uriel, line!, Une3 

The expression or variable is evaluated, and program control is 
transferred to the first line number if the value of the expression 
is less than zero, to the second line number if the value is zero, or 
to the third line number if the value is greater than zero. 

The program below transfers control to line number 2.1, 2.3, or 
2.5, according to the value of the expression in the IF command. 

♦2.1 TYPE "LESS THAN ZERO"; QUIT 
♦2.3 TYPE "EQUAL TO ZERO"; QUIT 
♦2.5 TYPE "GREATER THAN ZERO"; QUIT 
♦ IF (25-25)2. I, 2.3,2. 5 
EQUAL TO ZERO* 

IF with Less Than Three Line Numbers 

The IF command format can be altered to transfer program con- 
trol to one or two lines. For example, if a semicolon or a carriage 
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return is immediately after the first line number, control goes to 
the first line number if the value of the expression is less than zero. 
If the value is not less than zero, control goes to the next sequential 
command. For example: 

*2.20 IF "(X) 1.8;TYPE"Q" 

When line 2.20 is executed, program control goes to line 1.8 if X 
is less than zero. If Xis not less than zero, Q is typed. 

If a semicolon or a carriage return follows the second line num- 
ber, control goes to the first or second line number, depending upon 
whether the value of the expression is less than zero or equal to 
zero. If the value is greater than zero, control goes to the next 
sequential command. For example: 

*3. 19 IF (B) 1, 1.9 
♦3.20 TYPE B 

If B is less than zero, control goes to line 1.8; if B equals zero, 
control goes to 1 .9; and if it is greater than zero, control goes to the 
next sequential command, in this case line 3.20, and the value of B 
is printed. 

Arithmetic Comparison with IF Command 

The IF command can be used with all the arithmetic operations 
of FOCAL. - . 

Example 1 — Addition: 

♦ 1.10 IF <A+B>2. 1,2.5,2. 10 

Example 2 — Subtraction: 

*5.16 IF (A-B.U.6; TYPE "X" 

Example 3 — Division: 

*3. 10 IF <M/N)5. 5, 5. 6," 

♦3.15 TYPE "GREATER THAN ZERO" 

Example 4 — Multiplication: 



♦ 7.20 IF <P*I )8. i; 
*7.25 TYPE P*I 
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Example 5 — Exponentiation: 

♦ 4.15 IF (XtN)6. 1,6.2, 6. 3 

DO COMMAND 

The DO command is used to make subroutines of single lines or 
groups of lines. Control is returned to the line following the DO 
command after the subroutine is executed. 



♦1.1 SET A=i; SET B=2 

♦1.2 TYPE "STARTING" 

*1 . 3 DO 3. 2 

*2.1 TYPE "FINISHED" 

*3. 1 SET A=3; SET B=4 

*3.2 TYPE A+B 

*G0 

STARTING= 3.0000FINISHED= 7.0000* 

* 

If the user types a command such as DO 3, the DO command 
treats the group of program lines beginning with 3 as a subroutine. 
Control proceeds in ascending order through the group numbers 
until the end of the group is reached, or until a RETURN com- 
mand is executed. 

Nested DO 

DO commands may be nested as shown in the following example: 

*1 . 1 TYPE "BEGIN", ! 
*1.2 DO 2 

♦ 1.3 TYPE "END",!,' QUIT 
* 

*2. 1 DO 5. i; TYPE A, ! 

♦ 2.2 DO 5.2," TYPE A, ! 
*2.3 DO 7.5; TYPE A, ! 
* 

*5. 1 SET A=l 

+5.2 SET A=2 

* 

*7.5 SET A=3 

*G0 

BEGIN 

1.0000 

2.0000 
= 3.0000 
END 
* 
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The number of nested DO commands is limited only by the 
amount of core memory available after storage is allocated for 
program and variables. 

RETURN COMMAND 

The RETURN command is used to exit from a DO subroutine. 
When a RETURN command is encountered during execution of a 
DO subroutine, the program exists from its subroutine status and 
returns to the command following the DO command that initiated 
the subroutine status. 

QUIT COMMAND 

When the QUIT command is executed, FOCAL prints an 
asterisk and returns to command mode. 

FOR COMMAND 

The FOR command is used to set up program loops and iterative 
procedures. The general command format is: 

*FOR A = B,C,D; commands 
*FOR A = B,D; commands 

The variable A is initialized to the value B, then the command 
or commands following the semicolon are executed. When the com- 
mands have been executed, the value of A is incremented by C and 
compared to the value of D. If A is less than or equal to D, the 
command after the semicolon is executed again. This process is 
repeated until A is greater than D, at which time FOCAL goes to 
the next sequential line. The command or commands will always be 
executed at least once. 

A must be a single variable. B, C, and D may be expressions, 
variables, or numbers. If the value C is omitted, it. is assumed that 
the increment is one. If C and D are omitted, the FOR command is 
handled like a SET command and no iteration is performed. A 
FOR command may be used with a DO command and nested: 
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FOR with a DO 

♦ERASE ALL 

*1. 1 FOR X»I,1,5J DO 2 

♦1.2 QUIT 

* 

*2. 1 TYPE !" X",X 

♦2.2 SET A=X+100 

*2.3 TYPE !" A",A 

♦ GO 



x= 


1. 0000 


A= 


101.0000 


X= 


2. 0000 


A= 


102.0000 


X= 


3. 0000 


A= 


103.0000 


X= 


4. 0000 


A= 


104.0000 


X= 


5. 0000 


A= 


105. 0000* 



Nested FOR and DO 



*1.1 FOR Z-l*3; TYPE 
♦1.2 TYPE ! 
♦ 1.5 FOR A=l*3; DO 3 
♦1.7 QUIT 



B 



♦ 3. 1 FOR B=1,3J DO 4 

* 

♦4.1 FOR C*1..3; TYPE X 1, A* B*'C* " 



♦ 4.2 


TYPE 


i 
















♦ GO 






















A 


B 


C 




A 


B 


C 




A 


B 


C 


= 1 = 


1 = 




s 


1 = 


1- 


2 


= 


1 = 


1 = 


3 


= 1 = 


2= 




s 


1 = 


2=* 


2 


= 


1 = 


2= 


3 


= 1 = 


3= 




= 


1 = 


3= 


2 


= 


1 = 


3 = 


3 


= 2= 


1 = 




s 


2 = 


1 = 


2 


= 


2= 


1 = 


3 


= 2= 


2= 




= 


2= 


2= 


2 


= 


2= 


2= 


3 


= 2= 


3= 




s 


2= 


3= 


2 


= 


2= 


3= 


3 


= 3= 


1 = 




= 


3= 


1 = 


2 


= 


3= 


1 = 


3 


= 3= 


2= 




= 


3= 


2= 


2 


= 


3= 


2= 


3 


= 3* 


3= 




= 


3= 


3- 


2 


= 


3= 


3= 


3 



Another way of handling the same program is: 

*l.t FOR Z= 1,3; TYPE "ABC" 

♦ 1.2 FOR A= 1,3; FOR B= 1,3; TYPE !;FOR C= 1,3; TYPE Z!,A,B, C, " 
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Subscripted Variables 

Variables may be further identified by subscripts which are en- 
closed in parentheses immediately following the variables. For 
example: 



♦SET AB(0)=5 

♦SET AB< 1 )= 10 

♦SET AB<2)=15 

♦SET AB(3)=20 

♦SET AB<4)=25 

♦SET AB<5)=30 

♦FOR X=0,5; TYPE ABCX),! 

= 5 

= 0.1E+02 

= 0.2E+02 

= 0.2E+02 

= 0.3E+02 

= 0.3E+02 



In the above example, subscripts are used to set up an array 
called AR. Any element in the array can be represented by a sub- 
script in the range to 5. The first element in an array always has a 
subscript of 0. A subscript may be a number, another variable^ or 
an expression. If it is a number, it must be in the range ±2047. In 
order to be properly represented by the TYPE $ command, sub- 
script numbers must be positive integers in the range from to 99. 
The TYPE $ command will print subscripts greater than 99 as two 
random characters, although their contents will be correct as as- 
signed by the program. 

COMMENT OR CONTINUE COMMAND 

The COMMENT or CONTINUE command (abbreviated as C) 
causes the program line to be ignored by FOCAL. The user may 
use the C command to insert comments into the program, or he 
may use the C command line as a non-executable program step. 
In either case, program lines beginning with C are skipped when 
the program is executed. However, comments are printed in re- 
sponse to a WRITE command. 
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♦ERASE ALL 

♦1.1 C INITIALIZE VARIABLES 

*1.2 SET A=5 

*1.3 SET B=6 

♦1.4 SET C=7 

* 

♦ 2. 1 C PERFORM CALCULATION 

♦ 2.2 TYPE A+B+C 
* 

Edit Commands 

WRITE OR WRITE ALL COMMAND 

The WRITE or WRITE ALL command causes FOCAL to 
print a program line, a group of lines, or an entire indirect program 
on the Teletype. 

Print a single line. 
♦write 2.1 _ . ri . 

♦write 2 Print a group of lines. 

♦write Print an entire program. 

Once the program is completed, the user may want to save it by 
putting it on paper tape. The procedure for saving a FOCAL pro- 
gram on-line is as follows : 

1. Make sure FOCAL is in command mode. 

2. Type WRITE 

3. Set low-speed punch to ON position. 

4. Type RETURN key. 

FOCAL will punch the entire program onto the paper tape and 
simultaneously print it on the Teletype. 

Whenever the user wants to run the program he has saved on 
paper tape, he does the following: 

1 . Makes sure FOCAL is in command mode. 

2. Puts the program tape in low-speed reader. 

3. Switches the low-speed reader to START. 

The program will be put into core the same as it would if the 
user were typing it on the Teletype keyboard. When the entire 
program has been read into core, the user should type CTRL/C 
since the asterisk printed when the WRITE command is finished 
is also punched and may be interpreted as a command. CTRL/C 
ensures that FOCAL returns to command mode. 
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ERASE AND ERASE ALL COMMANDS 

The ERASE command deletes symbolic names, lines, or groups 
of lines. . 

♦erase Delete all names defined in 

symbol table. 
*l^ll o' 2 Delete line 2.2 

♦ERASE 2 

Delete all lines in group 2. 

The user can check to see if the line(s) has been deleted by 
typing the WRITE command after the ERASE command. This is a 
useful procedure for checking commands and also for obtaining a 
clean printout of the current program. 

The ERASE ALL command deletes the entire indirect program. 
It is good programming practice to type ERASE ALL before start- 
ing to type a new program. The ERASE ALL command is gen- 
erally used only with direct commands because it returns control 
to command mode upon completion. 

MODIFY COMMAND 

The MODIFY command is used to change characters within a 
line without changing the entire line. The format for MODIFY is: 

MODIFY line number RETURN key Search character 

The search character is not printed. After the user has typed the 
line number, RETURN key, and search character, FOCAL prints 
the contents of the specified line until it encounters the search char- 
acter. When the search character is read and printing stops, the 
user has any one or more of the following options : 

1 . Type new characters in addition to those already printed. 

2. Type a form feed (CTRL/L). This causes the search to 
proceed to the next occurrence, if any, of the search char- 
acter. 

3. Type CTRL/BELL. The user can then change the search 
character he specified in the MODIFY command. 

4. Type the RUBOUT key. This causes FOCAL to delete a 
character, starting with the last character printed and de- 
leting one character to the left each time RUBOUT is 
typed. 
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5. Type the back arrow (<-) key. This causes FOCAL to 
delete everything between the back arrow and the line num- 
ber. 

6. Type the RETURN key. This causes FOCAL to terminate 
the line at that point, deleting everything to the right. 

7. Type the LINE FEED key. This is normally done after the 
user has exercised one or more of the above options. After 
the user has modified the line, he may type LINE FEED 
and cause the remainder of the line from the search char- 
acter to the end to be printed and saved. 



♦7.01 JACK AND BILL W£NT UP THE HILL 

♦MODIFY 7.01 

JACK AND B\JILL W3AENT UP THE HILL 



In the above example, B was typed as the search character for 
line 7.01. (Note that the search character did not print.) FOCAL 
stopped printing when it encountered the search character (B), and 
the user typed the RUBOUT key (\) to delete the B. Then he 
typed the correct letter J. Next he typed CTRL/BELL and the $ 
key to change the search character. FOCAL continued to print the 
line until the new search character was encountered. The user typed 
RUBOUT to delete the $ and then typed the correct character (E). 
He then typed the LINE FEED key and the remainder of the line 
was printed. 

CAUTION 

When any text editing is done, the values in 
the user's symbol table are reset to zero. 

If the user defines his symbols in direct statements and then uses 
a MODIFY command, the values of his symbols are erased and 
must be redefined. However, if the user defines his symbols by 
means of indirect statements prior to using a MODIFY command, 
the values will not be erased because these symbols are not entered 
in the symbol table until the statements defining them are executed. 
Notice in the example below that the values of A and B were set 
using direct statements. The use of the MODIFY command reset 
their values to zero and listed them after the defined symbols. 
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♦ERASE ALL 

♦SET A=l 

♦SET B=2 

♦1.1 SET C=3 

♦1.2 SET D=4 

♦1.3 TYPE A+B+C+D; TYPE f; TYPE $ 

♦MODIFY 1.1 

SET C=3\5 

♦GO 

?07.22 01. 10 

♦ 

♦MODIFY 1. 1 

SET C=3\5 

♦GO 

= 9 

C9<00>= 5 

DSC00>= 4 

A§(00)= 

B§<00>= 

♦ 

Library Commands 

In addition to the basic FOCAL commands, there are four 
special commands to perform the library functions: storing and 
retrieving data from the system disk. All commands following the 
LIBRARY command on the same line are ignored. Names of files 
may be from 1 to 4 characters long. Only alphanumeric characters, 
letters, and numbers should be used in file names. The library com- 
mands, like other FOCAL commands, may be abbreviated. 

LIBRARY SAVE 

This command copies the current program into the user's area 
on disk and gives it the name specified. For example, the command: 

♦L S TRUE 

will cause the current program to be stored on disk under the name 
TRUE. The program will also remain in the user's area. 

LIBRARY CALL 

This command copies the named program from disk into the user's 
area. For example, the commands: 

♦L C TRUE 
♦W 

will cause the program TRUE to be recalled from the disk into the 
user's area and listed on the Teletype. Any program currently in 
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the user's area will be erased. The program TRUE can then be 
executed with a GO command. 

If the LIBRARY CALL command is given a line number and 
stored, it must have at least one numbered command following it. 
In this case, the LIBRARY CALL command will cause the named 
program to be called into the user's area and executed as if GO 
had been typed. For example: 



♦3. 10 L C TRUE 
*3.11 C 



If the above commands are included in a program, they will 
cause TRUE to be brought in and executed at that point. If there 
are lines beyond 3.11 remaining to be executed, they will be deleted. 
This procedure allows the user to chain FOCAL programs as in 
BASIC. 

LIBRARY DELETE 

This command deletes the named program from the disk direc- 
tory. For example, the command: 



*L D TRUE 



will remove TRUE from the disk. 

LIBRARY LIST 

This command causes the names of all the FOCAL programs 
stored on the disk to be listed on the Teletype, ten names to a line, 
followed by the total number of free blocks remaining on the disk. 
The LIBRARY LIST command removes the contents of the user's 
area with an ERASE ALL command. 

ERROR MESSAGES WITH LIBRARY COMMANDS 

When the LIBRARY commands are used, five errors are pos- 
sible. These are also listed in the error code summary in Table 9-9 
at the end of this section. 

9-79 



Command Explanation 

730.71 The command appeared to be a LI- 

BRARY command but was not, for ex- 
ample : 

LIBRARY OPEN 

No action is taken; the command should 
be retyped. 

?30.<0 Either an unacceptable file name was 

specified or no name was specified where 
one was required. 

731.42 The file name specified does not match 
any name currently in the user's disk 
directory. This error will only occur with 
the LIBRARY CALL and LIBRARY 
DELETE commands. 

731.43 There is already a program with the spe- 
cified name in the directory. This error 
will only occur with the LIBRARY 
SAVE command. 

73 1 .44 This user's disk directory is full. The cur- 
rent program cannot be saved until others 
have been deleted. This error will only 
occur with the LIBRARY SAVE com- 
mand. 



Estimating Program Length 

FOCAL permits approximately 1060 (decimal) locations to be 
used for the user program and variables without the extended math 
functions, and approximately 670 locations with the extended func- 
tions (sine, cosine, log, exponential, etc.). Since FOCAL requires 
five locations for each variable stored in the variable table and one 
location for each two characters of stored program, the approx- 
imate length of a program may be determined by the formula : 
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Length of program = 5S ■+- -x + 2L 

where 

S = number of variables 

C ■= number of characters in program 

L = number of lines 

If the total program area or variable table area becomes too 
large, FOCAL prints an error message (06.54 or ID. :5). The fol- 
lowing routine allows the user to find out how many core locations 
are left for his use : 



♦ERASE 

*F0R 1=1 ,300; SET A<I>=1 

?06.54 (Disregard error code.) 

♦TYPE %4, 1*5, "LOCATIONS LEFT" 

= 1075LOCATIONS LEFT* 

* 

* 



Debugging 

USING THE ERROR DIAGNOSTICS 

Whenever FOCAL detects an illegal command or improbable 
condition within a user's program, the execution of the program 
stops and an error message is printed in the form ?XX.XX@GG.ss, 
where 7XX.XX is the error message and GG.ss is the line at which 
the error occurred. (See Table 9-9 for the complete list of error 
messages.) 

Depending upon the type of error detected, the user may ignore 
the error message or make program changes before continuing. For 
example, if the user types CTRL/C to terminate a loop, the error 
message 701.00 is printed and program control goes to command 
mode; so, in this case, the user ignores the message and types his 
next command. If a program stops and the message 703.05 is 
printed, the user must examine his program to determine which 
command line is wrong. In the following program, line 1.3 contains 
the instruction to transfer to a nonexistent line number. 
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♦ERASE ALL 










*1 . 


10 


SET A= 


= 2; 


TYPE 


"A" 


,A, ! 


*1. 


20 


SET B= 


= a; 


TYPE 


"B" 


,B, ! 


* 1 . 


30 


GOTO \ 


[.01 








*1. 


40 


TYPE "A+E 


i'SA+B 






*G0 














A= 




2 










B= 




4 










?03 


.05 @ 01. 


30 








* 















USING THE TRACE FEATURE 

The trace feature is used to check the logic in part of a FOCAL 
program. To implement the trace feature, the user inserts a ques- 
tion mark (?) into a command string at any point. FOCAL prints 
each succeeding character as it is executed until another question 
mark is encountered or until the program returns to command 
mode. For example, the trace feature is used to print parts of 3 
lines in the following program : 



•ERASE ALL 




* 1 . 1 


SET A = 


■l 


*1 .2 


SET B= 


■5 


*1 .3 


SET C = 


■3 


♦ 1 .4 


TYPE ? 


A+B-C?* ! 


*l .5 


TYPE ? 


B+A/C?* ! 


*1 .6 


TYPE 1 


B=C/A? 


♦ GO 






A+B-C= 3 




B+A/C= 5 




B=C/A= 2* 





NOTE 

The WRITE command disables the trace 
feature. 

FOCAL Functions 

The FOCAL functions improve and simplify arithmetic capabil- 
ities. In general, the FOCAL functions may be used anywhere a 
number or a variable is legal in a mathematical expression. A 
standard function call consists of three or four letters beginning 
with the letter F and followed by an expression in parentheses. The 
FOCAL functions are summarized in Table 9-8. 
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The functions must be used with a legal FOCAL command. They 
cannot be used alone as commands. For example: 

*SET Z=A+FSQT(FSIN(X) ) 

Within a normal range of arguments, at least five significant 
digits of accuracy may be expected for the trigonometric, exponen- 
tial, and logarithmic functions. The following functions are avail- 
able to FOCAL users. 

SINE FUNCTION (FSIN) 

The sine function (FSIN) is used to calculate the sine of a 
user-specified angle in radians. The format for FSIN is: 

FSIN (angle) - 



♦ TYPE FSIN<3. 14159/4) 
0.7071* 



The format for calculation the sine of an angle in degrees is: 
FSIN (degrees * 3.14159/180) 



*TYPE FSIN<30*3. 14159/180) 
= 0.50000* 



COSINE FUNCTION (FCOS) 

The cosine function is used to calculate the cosine of a user- 
specified angle in radians. The format for FCOS is : 

FCOS (angle) 

♦TYPE FC0S<2*3. 141592) 
= 1 .0000* 
♦TYPE FCOS(. 50000) 

0.8776+ 
♦TYPE FC0S<45*3. 141592/180) 

0.7071* 
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EXPONENTIAL FUNCTION (FEXP) 

The exponential function . (FEXP) is used to compute e 
(e=2.71828) to a power specified by the user. The format for 
FEXP is: 



FEXP (power) 



♦TYPE FEXP(l) 

2.7183* 
*TYPE FEXPC0) 
= 1.0000* 
♦TYPE FEXP(- 1-23456) 
= 0. 0000* 



LOGARITHM FUNCTION (FLOG) 

The logarithm function (FLOG) is used to compute the natural 
logarithm (log e ) of a number specified by the user. The format for 
FLOG is: 

FLOG (number) 

'♦TYPE FLOG< 1.00000) 

0.0000* 
♦TYPE FL0G( 1.98765) 

0.6870* 
♦TYPE FLOGC2.065) 

0.7251* 



The following formulas are useful for finding logarithms to base 
10: 

log 10 X=log e X/log e 10=0.434294 log e X 

ARCTANGENT FUNCTION (FATN) 

The arctangent function (FATIN) is used to calculate the angle 
in radians of a user-specified tangent. The format for FATN is: 



FATN (tangent) 



♦TYPE FATN ( 1 . ) 

0.7854+ 
♦TYPE FATN (.31305) 
= 0.3034+ 

♦TYPE FATNC3. 141592) 

1.2626+ 
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SQUARE ROOT FUNCTION (FSQT) 

The square root function (FSQT) is used to compute the square 
root of an expression. The format for FSQT is: 

FSQT (expression) 



♦TYPE FSQTC4) 

= 2.0000* 

♦TYPE FSQTC9) 

= 3.0000* 

*SET Z=FSQT( M4>;TYPE Z 

= 12.0000* 



ABSOLUTE VALUE FUNCTION (FABS) 

The absolute value function (FABS) is used to indicate the 
absolute (positive) value of an expression. The format for FABS 
is: 

FABS (expression) 



♦TYPE FABS (-66) 
= 66.0000+ 
♦TYPE FABSC+23) 
= 23.0000* 
♦TYPE FABS<-99. 05) 
= 99.0500* 



SIGN PART FUNCTION (FSGN) 

The sign part function (FSGN) is used to output the. sign part 
(+ or — ) of a number with a value of 1. FSGN (0) = 1. The 
format for FSGN is: 

FSGN (expression) 



♦TYPE FSGN<6-4> 
= 1.0000* 

♦TYPE FSGN<0) 
= 1.0000* 

♦ TYPE FSGN (-7), 
=- 1.0000* 
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INTEGER PART FUNCTION (FITR) 

The integer part function (FITR) is used to output the integer 
part of a number. The format for FITR is: 

FITR (expression) 

For positive numbers, FITR(X) is the greatest integer function. 
For negative numbers, FITR(— X) is the integer part of — X. The 
greatest integer function for negative numbers is obtained by 
FITR ( -X ) - 1 . For example : 



♦ TYPE FITRC5.2) 
= 5.0000* 

♦ TYPE FITRC55.66) 
= 55.0000* 
*TPE 

*TYPE FITFU-4. 1 ) 
=- 4. 0000* 



RANDOM NUMBER FUNCTION (FRAN) 

The random number function (FRAN) is used to generate non- 
statistical pseudo-random numbers in the range 0.5000 to 0.9999. 
No argument is used with the FRAN function. The format for 
FRAN is: 

FRANf ) 

*TYPE FRANC) 

0.7376* 
♦TYPE FRAN< ) 

0.8959* 

FRAN can be used to produce a less biased number. For ex- 
ample: 

♦ SET A=FRAN( ) », 

*SET B=A=KITR<A) 

The value assigned to B is a random number in the range 0.0000 
to 0.9999. 

Focal Output Operations 

The following is a description of symbols used in FOCAL output 
operations: 
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Symbol 
To set output format, TYPE %x.y 



Explanation 

Where x is the total 
number of digits, 
and y is the number 
of digits to the right 
of » the decimal 
point. 



TYPE %6.3, 123.456 FOCAL prints: 

=+123.456 



TYPE % 



Resets output for- 
mat to floating 
point. 



To type symbol table, TYPE $ 



Other statements 
may not follow on 
this line. 



Control Characters 

FOCAL control characters and their explanations are shown 
below: 



% Output format delimiter 




! Carriage return and line feed 


# Carriage return 


$ Type symbol table contents 


( ) Parentheses 




[ ] Square brackets 


(mathematics) 


<> Angle brackets 




" " Quotation marks (text string) 


?? Question marks (trace feature) 


* Asterisk (high-speed reader input) 


SPACE key (names) 1 




RETURN key (lines) 


(nonprinti 


ALT MODE key (with ASK statement) 




Comma (expressions) 


Semicolon (commands and 


statements) 
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Reading FOCAL Paper Tapes 

To ensure that FOCAL paper tapes are read without error, they 
should be read silently. To do this, type tB (CTRL/B) followed 
by UNDUPLEX just prior to reading the tape. This Monitor com- 
mand suppresses the printing of the program as it is read. As each 
line is read, a line feed and FOCAL's asterisk are printed,- indicat- 
ing that the line is properly stored. After the tape has been com- 
pletely read, type tB DUPLEX to restore FOCAL to its normal 
mode. An example is shown below: 

*ERASE ALL 
♦tBUNDUPLEX 

* 

* 
* 
* 
* 

*tBDUPLEX 

*WRITE ALL 
C-FOCAL, 1969 

01.05 C PROGRAM TO CALCULATE THE HYPOTENUSE OF A 

01.06 C RIGHT TRIANGLE GIVEN THE TWO SIDES 
01.10 ASK "SIDES OF TRIANGLE ARE" A> B 
01.20 SET C=FSQT(At2+Bt2) 

01.30 TYPE "HYPOTNEUSE 

01.30 TYPE "HYPOTENUSE IS" C, ! 

01 .40 GOTO 1.1 

* 
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Table 9-8. FOCAL Functions 



Function 



Format 



Interpretation 



Square Root 



Integer Part 



Random Number 
Generator 

Exponential 



FSQT(x) Where x is a positive number or 
expression greater than zero. 



Absolute Value FABS(x) 

Sign Part FSGN(x) 



FOCAL ignores the sign of x. 

FOCAL evaluates the sign part 
only, with 1.0000 as integer. 



FITR(x) FOCAL operates on the integer 

part of x, ignoring any fractional 
part. 

FRAN(x) FOCAL generates a random num- 
ber. The value of x is ignored. 

FEXP (x) FOCAL generates e to the power x. 
(2.71828*) 



9 Sine 



FSIN(x) FOCAL generates the sine of x in 

radians. 



9 Cosine 



FCOS(x) FOCAL generates the cosine of x 
in radians. 



9 Arctangent 



FATN(x) FOCAL generates the arctangent 
of x in radians. 



^Logarithm 



FLOG(x) FOCAL generates log e (x) . 



9 These are extended functions and may be chosen or deleted when 
FOCAL is loaded. 
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Table 9-9. FOCAL Error Messages 



Message Explanation 

700.00 Manual start given from console. 

700.00 Interrupt from keyboard via CTRL/ C. 

70 1 .40 Illegal step or line number used. 

701.78 Group number is too large. 

70 1 .96 Double periods found in a line number. 

701.: 5 Line number is too large. 

?01.;4 Group zero is an illegal line number. 

702.32 Nonexistent group referenced by DO. 

702.52 Nonexistent line referenced by DO. 

702.79 Storage was filled by push-down list. 

703.05 Nonexistent line used after GOTO or IF. 
703.28 Illegal command used. 

704.39 Left of = in error in FOR or SET. 

704.52 Excess right terminators encountered. 

704.60 Illegal terminator in FOR command. 

704. : 3 Missing argument in display command. 

705.48 Bad argument to MODIFY. 

706.06 Illegal use of function or number. 
706.54 Storage is filled by variables. 

707.22 Operator missing in expression or double E. 

707.38 No operator used before parenthesis. 

707. : 9 No argument given after function call. 

707. ;6 Illegal function name or double operators, 

708.47 Parentheses do not match. 

709. 1 1 Bad argument in ERASE. 

710. : 5 Storage was filled by text. 

711.35 Input buffer has overflowed. 
720.34 Logarithm of zero requested. 

723.36 Literal number is too large. 
726.99 Exponent is too large or negative. 
728.73 Division by zero requested. 
730.05 Imaginary square roots required. 

?31.<7 Illegal character, unavailable command, or unavailable 

function used. 

730.71 Undefined library command. 

730. <0 Bad argument or missing argument to library command. 

73 1.42 No such name in library directory. 

73 1 .43 Attempt to enter a duplicate name in the directory. 

73 1 .44 Library directory is full. 
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FORTRAN-D 

FORTRAN-D compiles and runs programs written in the PDP-8 
version of FORTRAN II. Programs (usually created and stored 
with the Symbolic Editor) are compiled in a single pass and exe- 
cuted (automatically) immediately following compilation. 

Calling FORTRAN-D 

To use FORTRAN-D, type: 

.R FORT 



FORTRAN requests the name of the input file, i.e., the file con- 
taining the FORTRAN program to be compiled and run. The user 
responds with the file name and the RETURN key. FORTRAN 
then requests the name of an output file in which to store the com- 
piled version of the program. For normal usage, just the RETURN 
key need by typed. FORTRAN places the compiled code in a file 
of its own, then proceeds to run the program. 

If a file name is entered for output, FORTRAN creates a per- 
manent file in which the compiled binary program is saved. It is 
then possible to rerun this program without recompiling it. To run 
an already compiled program, call the FORTRAN operating sys- 
tem directly by typing: 

.R FOSL 

FOSL requests the name of an input file. Enter the name of the 
file containing the compiled binary. For example, if the user types: 

.R FORT 

1NPUT:MTRIX 
OUTPUT: 

FORTRAN compiles and executes the program MTRIX but does 
not save the compiled binary. 

FORTRAN compiles and executes the program MTRIX and 
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then leaves the compiled binary in the file named BMTRIX when 
the user types: 



.R FORT 

INPUT sMTRIX 
OUTPUT J BMTRIX 



The FORTRAN binary program BMTRIX is executed without 
first being compiled when the user types: 

.R FOSL 
INPUTsBMTRIX 

All FORTRAN programs return to the Monitor when they have 
completed execution. 

Using FORTRAN-D 

Differing versions of PDP-8 FORTRAN offer slightly different 
features. FORTRAN-D differs in the way it is called into use 
(described above), and in its more powerful I/O capability (de- 
scribed below) . FORTRAN-D allows three data formats: 

I Integer format 
E Exponential format 

A Alpha format, ASCII value of a character is stored as an 
integer value. 

The standard device for READ and WRITE statements is the 
Teletype, which is assigned device code 1. Because the Teletype 
is so frequently used, FORTRAN-D includes two special input/ 
output instructions, ACCEPT and TYPE. These instructions imply 
use of the Teletype; therefore, the device code need not be specified. 
ACCEPT is especially convenient if data is to be entered at the key- 
board because this instruction automatically supplies a line feed 
when the RETURN key is typed. Also, the user can correct an 
erroneously typed, value by striking the RUBOUT key. 

A FORTRAN-D program can also utilize the high-speed reader 
and punch for I/O. These devices are assigned code 2. Because the 
high-speed reader and punch are shared by all users, it is necessary 
to assign them if they are to be used. Assign the appropriate devices 
and mount tapes in the reader before running FORTRAN-D. An 
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automatic DEASSIGN is performed by FORTRAN before it re- 
turns to the Monitor; therefore, the user must reassign the devices 
before each run. 

FORTRAN-D also allows programs to read and write data files 
on the disk. These data files are completely separate from the pro- 
gram files. Data files are read and written by standard READ and 
WRITE statements within the FORTRAN-D program. The device 
code for the disk is 3. Because programs using the disk are treated 
differently by FORT (the FORTRAN-D compiler), it is necessary 
to identify programs which use the disk. These programs are iden- 
tified by a DEFINE DISK statement as the first statement in any 
such FORTRAN-D program including a READ or WRITE state- 
ment with device code 3. 

Just as FORT itself must ask for the name of its input and output 
files, so must a FORTRAN program ask for the names of its disk 
files. FORTRAN-D programs do this by typing INPUT: and 
OUTPUT: a second time. The user responds by typing the name 
of the files to be read or written by the program. FORTRAN-D 
asks for both input and output for all programs which include a 
DEFINE DISK statement. If only input (or output) is to be used, 
the user responds to the other by typing the RETURN key. 

Line Format 

FORTRAN programs consist of a series of lines, each a string 
of 72 characters or less (the width of the Teletype paper from 
margin to margin). Each line contains two fields: the first, which 
begins at the left margin, is an identification field; the second con- 
tains the statement field. Termination of a line is indicated to the 
computer by a carriage return, accomplished by typing the RE- 
TURN key. 

The identification field can be blank and extends from the left- 
hand margin up to and including a semicolon character. This field 
can contain one of the following types of identification: 

1. A Statement number. This number, which can be any posi- 
tive integer from 1 to 2047 inclusive, identifies the state- 
ment on that line for reference by other parts of the pro- 
gram. Statement numbers are used for program control or 
to assist the programmer in identifying segments of his 
program. 
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2. The letter, C. This identifies the remainder of the line as a 
comment. 

Although the identification field may be left blank, it cannot be 
omitted entirely. The statement field begins immediately after a 
blank space and extends through the next carriage return. A sample 
FORTRAN program is shown below: 



C THIS PROGRAM CALCULATES FACTORIALS 

5 TYPE 200 

10 ACCEPT 300, N 

IFACT=I 
30 IF <N-1) 5,32,33 

32 TYPE 400, N, IFACT 
GO TO 10 

33 DO 35 1=1, N 
IFACT=IFACT*I 

35 CONTINUE 

GO TO 32 
200 FORMAT (/, "PLEASE TYPE A POSITIVE NUMBER",/) 
300 FORMAT (I) 
400 FORMAT (/, I," FACTORIAL IS", IFACT) 

END 

FORTRAN source programs are generated using the Symbolic 
Editor Program. The Editor will facilitate formatting lines by use 
of a tab character, permitting automatic movement to an indented 
second field. 

STATEMENT NUMBERS 

Each statement cart have a positive, nonzero integer (0-2047) as 
its number. The statement number is used to reference that par- 
ticular statement elsewhere in a program. A statement number con- 
sists of one to four digits beginning at the left hand margin and is 
followed by a semicolon. Statement numbers can be assigned non- 
sequentially; however, no two statements can have the same num- 
ber. There must be no more than 40 statement numbers in a given 
program, and they must have a value of 2047 (decimal) or less. 

STATEMENT CONTINUATION CHARACTER 

Frequently, a statement is too long to fit on one line. If the 
character single quote (') appears as the last character of a line 
before the carriage return, the next line is treated as a continuation 
of the preceding statement. A statement may be continued on as 
many lines as necessary to complete it, but the maximum number of 
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characters in the statement cannot exceed 128 (about two for- 
matted lines ) . For example : 

10 A=B**2- <4.*A*C/ <B**2+ 1 . 5*A*C> )*4.3 ' 

fB**2+C <SQTF(C)*SQTF<D) >/<B**2+l .5*A*C> > 



is equivalent to the formula: 

4-A-C \ /VC • VD\ 



A = B 2 



U 2 +1.5-A-cJ * 4 * 3+B2+ U 2 +1.5-A-C/ 



* Although the continuation character, ('), allows a single state- 
ment to extend over two or more lines, no more than one statement 
can be written on one line. 

FORTRAN Statements 

FORTRAN statements are of several types with various func- 
tions distinguished as follows : 

1. Comment statements allow a programmer to insert notes 
within the program. 

2. Arithmetic statements resemble algebraic formulas. They 
define calculations to be performed. 

3. Control statements govern the sequence of statement exe- 
cution within a program. These statements reference pro- 
gram line numbers. 

4. Specification statements allocate data storage and specify 
input/output formats. 

5. Input/output statements control the transfer of information 
into and out of the computer. 

COMMENT STATEMENTS 

The character C, at the left margin of a line, designates that line 
as a comment line. A comment has no effect upon the compilation 
process but can serve as a guide to program logic for later debug- 
ging, etc. There is no limit to the number of comment lines which 
can appear in a given program. A comment cannot be continued by 
use of the continuation character, ('), but must be continued in a 
second comment statement. For example: 

C THIS IS AN EXAMPLE 
C OK A COMMENT 
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CHARACTER SET 

The following characters are used in the FORTRAN language : 

1 . The alphabetic characters, A through Z. 

2. The numeric characters, through 9. 

3. The control characters : 

; semicolon CR carriage return 

. period LF line feed 

' single quote ( left parenthesis 

" double quote ) right parenthesis 
, comma 

4. The operators: 

** exponentiation / division 

+ addition * multiplication 

— subtraction = replacement 

All other characters are ignored by the Compiler except as 
Hollerith information found in FORMAT statements (where all 
Teletype characters are legal). The SPACE character has no 
grammatical function (it is not a delimiter) except in FORMAT 
statements and can be used freely to make a program easier to 
read. 



CONSTANTS 

Constants are explicit numeric values appearing in statements. 
Two types of constants, integer and real, are permitted in FOR- 
TRAN. 

Integer Constants 

Integer (fixed-point) constants are represented by a string of 
one to four decimal digits, written with an optional sign and with- 
out a decimal point. An integer constant must fall within the range 
±2047. For example: 

47 

+47 (+ sign is optional) 

-2 

0434 (leading zeros are ignored) 

—0 (same as zero) 
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Real Constants 

Real constants are represented by a digit string, an explicit deci- 
mal point, and are written with an optional sign. 10 Real constants 
can also be written in exponential notation with an integer exponent 
to denote a power of ten (i.e., 7.2 x 10 3 is written 7.2E+3). A real 
constant may consist of any number of digits but only the leftmost 
six digits appear in the compiled program. Real constants must 
fall within the range 0.14 x 1Q_38 to 1.7 x 10 38 . For example: 

+4.50 (plus sign is optional) 

4.50 
-23.09 
-3.QE14 (same as -3.0 x 10 14 ) 

7 (saved as 7.00000, not the same as the integer 7) 

Fixed and Floating-Point Representation 

The difference between integers and real numbers in FORTRAN 
is the way in which each is represented in core memory. Both 
types of numbers are' converted to binary to be stored in the com- 
puter. 

A FORTRAN integer is stored in one 12-bit computer word. 
The sign of the number is kept in the high-order bit and the 
magnitude (the integer value) in the remaining 11 bits. This rep- 
resentation, shown schematically in Figure 2-1, is called fixed 
point, because the decimal point is always considered to be to 
the right of the rightmost digit. A FORTRAN integer may not 
exceed the range of ±2047. All integers greater than ±2047 are 
taken modulo 2048 (i.e., 2049 is considered to be 1; 4099, to 
be 3). 

The floating-point format consists of two parts: an exponent 
(or characteristic) and a mantissa. The mantissa is a binary frac- 
tion with the radix point assumed to be to the left of bit one of 
the mantissa. The mantissa is always normalized; meaning it is 
stored with leading zeros eliminated so that the leftmost bit is 
always significant. The exponent represents the power of two by 
which the mantissa is multiplied to obtain the true value of the 



10 Where a number is to be identified as being negative, a minus sign ( — ) 
must be used. A plus sign ( + ) is optional; with no sign, a number is con- 
sidered positive. 
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number for use in computation. The. exponent and mantissa are 
both stored in two's complement form. 

SIGN 



SIGN OF 
MANTISSA 





MAGNITUDE 



SIGN 


1 
OF EXPONENT 


a. FORTRAN INTEGER 


VI 


'' 










EXPONENT 







1 




11 • 


| MANTISSA 
i 





1 




1 1 


MANTISSA 



b. FLOATING POINT 

Figure 9-1. Number Representation 

Users should not attempt to input floating point constants of 
more than six decimal digits, either in the FORTRAN source 
program or via the run-time ACCEPT statement. 

Integers cannot appear in floating-point expressions except as 
exponent or subscripts. Some examples of illegal and legal expres- 
sions are as follows: 



Expression 


Legal 
Yes 


Mode 


A(I)*B(J)**2 


Floating 


I(M)*K(N) 


Yes 


Fixed 


16.*B 


Yes 


Floating 


(K+16)*3 


Yes 


Fixed 


A**(l+2)/B 


Yes 


Floating 


8*A 


No 


— 


4.*J 


No 


— 


I+D 


No 






VARIABLES 

A variable is a symbol whose value may change during execu- 
tion of a program. The name of a variable consists of one or more 
alphanumeric characters, the first of which must be alphabetic. 
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Only the first four characters are interpreted as defining the vari- 
able name; the rest are ignored. For example, the name EPSILON 
would be interpreted by the Compiler as EPSI. Since only the 
first four characters are meaningful, the two names XSUM1 and 
XSUM2 would be considered identical. 

Spaces, as mentioned earlier, are ignored. The name EX IT 
represents one variable, not two. Thus, EX IT, EXIT, or even 
EXI T are identical names as far as the Compiler is concerned, 
and they all refef to the same numerical quantity. 

The type (or mode) of a variable (integer or real) is determined 
by the first letter of the variable name. 

1. Integer variables begin with the letters: 

I, J, K, L, M, or N 

2. Real variables begin with any letter other than those above. 

Variables of each type may be either scalar or array variables, as 
explained below. 

Integer Variables 

Integer variables undergo arithmetic calculations with automatic 
truncation of any fractional part. For example, if the current value 
of K is 5 and the current value of J is 9, then J/K would yield 1 
as a result. 

Real Variables 

A variable is real when its name begins with any character other 
than I, J, K, L, M, or N. Real variables undergo no truncation in 
arithmetic calculations. Real variables may be converted to integer 
variables, and vice-versa, across an equal sign. 

Scalar Variables 

A scalar variable, which may be either integer or real, represents 
a single number, as opposed to an array (below) representing 
a collection of numbers. For example, the following are scalar 
variables : 

LM 

G2 

A 

TOTAL (considered to be TOT A by the computer) 

J 
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Array Variables 

An array variable represents a single element of a one-dimen- 
sional array of quantities. The variable is denoted by the array 
name followed by a subscript enclosed in parentheses. The sub- 
script may be any combination of integer variables and integer 
constants forming a valid expression, as follows: 

x (V) (V+C) (V-C) (C) 

where V is a fixed point (integer) variable, and C is a fixed-point 
constant (not equal to 0). 

The value of the expression in parentheses determines the ref- 
erenced array element. For example, the row matrix, A h would 
be represented by the subscripted variable A(l), and the second 
element in the row would be represented by A(2). Examples of 
array variables are: 

Legal Forms Illegal Forms 

Y(l) A(2+l) 

A(K+2) B(C) 

DIMENSION STATEMENT 

Array names must be identified as such to the FORTRAN Com- 
piler. Two items of information must be provided in any program 
using arrays : 

1. Which are the subscripted variables? 
- 2. What is the maximum value of the subscript? (When an 
array is used, a certain amount of storage space must be 
set aside by the Compiler for the array elements.) 

This information is provided by the DIMENSION statement: 



DIMENSION A(20)*B(15) 

where A and B are array names, and the integer constants 20 and 
1 5 are the maximum dimensions of each subscript. 

The rules governing the use of array variables and the DIMEN- 
SION statement are as follows : 

1. All array names must appear in a DIMENSION state- 
ment. 
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2. DIMENSION statements may be used more than once 
and may appear anywhere in the FORTRAN program, 
provided that the DIMENSION of an array appears be- 
fore any statement which references the array. 

3. Any number of arrays can be defined in a single DIMEN- 
SION statement. 

4. For notes on how to implement double subscripts (i.e., 
A(I,J) ), see the section on Implementation Notes. 

Array variables may be either integer or real, depending upon 
the initial letter of the array name. 



DIMENSION LISTC30),MAT< 1 00 ) / REGRC2H ) 



In the statement above, the names LIST and MAT designate 
integer arrays; that is, all elements of both arrays are integers. 
The third name, REGR, designates a floating point, or real array. 
The first array is a list containing a maximum of 30 elements; 
the second array has a maximum of 100 elements. 

The third array is a floating-point array and there are a maxi- 
mum of 20 elements in it. Not all elements of an array need be 
used in the course of a program; but, if using the DIMENSION 
statement the variable LIST (3.1) could not be referenced without 
the occurrence of an error message. 

FORTRAN Arithmetic 

ARITHMETIC OPERATORS 

The arithmetic operators are symbols representing the common 
arithmetic operations. The important rule about operators in the 
FORTRAN arithmetic expressions is that: every operation must 
be explicitly represented by an operator. In particular, the multi- 
plication sign must never be omitted. A symbol for exponentiation 
is also provided since superscript notation is not available on a 
Teletype. 

Normally, a FORTRAN expression is evaluated from left to 
right, like an algebraic formula. There are exceptions to this rule; 
certain operations are always performed before others, regardless 
of order. This priority of evaluation is as follows: 

9-105 



1 . Expressions within parentheses ( ) 

2. Unary minus — 

3. Exponentiation ** 

4. Multiplication or Division * or / 

5. Addition or Subtraction + or — 

The term "binding strength" is frequently used to refer to the 
relative position of an operator in a table such as the one above, 
which is in order of descending binding strength. Thus, exponentia- 
tion has a greater binding strength than addition, and multiplica- 
t ; on and division have equal binding strength. 

The unary minus is the arithmetic operator which indicates 
that a quantity is less than zero, such as —53, — K, —12.3. It 
refers only to the constant or variable which it precedes as opposed 
to a binary operator, which refers to operands on either side of 
itself as in the expression A— B. A unary minus is recognized by 
the fact that it is preceded by another operator, not by an operand. 
For example: 

A + B**-2/C-D 

The first minus sign (indicating a negative exponent) is unary; 
the second (indicating subtraction) is binary. At present it is not 
possible to raise an integer variable or integer constant to an 
integer value with FORTRAN-D. Only real values can be raised 
to integer powers. 

The left-to-right rule can be stated more precisely: A sequence 
of operations of equal binding strength is evaluated from left to 
right. To change the order of evaluation, parentheses are required. 
Thus, the expression A— B*C is evaluated as A— (B*C), not 
(A— B)*C. Examples of the left-to-right rule follow: 

The expression: Is evaluated as: 



A/B*C (A/B)*C 

A/B/A (A/B)/C 

A ** B ** C (A**B)**C 

Use of Parentheses 

Note the use of parentheses in the example below. They are 
used to enclose the subscript of the dimensional variable, D; to 
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specify the order of operations of the expression involving A, B, 
and C; and to enclose the argument of the function SINF. 

D(I) + (A+B)**C + SINF (X) 

In algebra there are several devices, such as square brackets [ ], 
rococo brackets ] }-, etc., for distinguishing between levels when 
expressions are nested. In FORTRAN, only the parentheses are 
available, so the programmer must be especially careful to pair 
parentheses properly. In any given expression, the number of 
left parentheses must be equal to the number of right parentheses. 

An easy way to check the proper pairing of parentheses is by 
counting out, illustrated in the following example: 

(Z+AM* (AM+l.))/( (X**2+C**2)*P) 
12 10 12 10 

The procedure is this: Reading the expression from left to right, 
assign the number, 1 , to the first left parenthesis (if you encounter 
a right parenthesis first, the expression is already wrong). Increase 
the count by one each time a left parenthesis is read, and decrease 
the count by one when a right parenthesis is found. When the 
expression has been completely scanned, the count should be zero. 
If it becomes less than zero during the scanning, there are too 
many right parentheses. If it is greater than zero at the end of an 
expression, there are excess left parentheses. 

ARITHMETIC EXPRESSIONS 
An algebraic formula such as: 

5a + 4b(x 2 - x ) 

represents a relationship between symbols (a, b, x, x ) and con- 
stants (5, 4, 2) indicated by mathematical functions and arithmetic 
operators (+, — , multiplication, exponentiation). This same for- 
mula can be written as a FORTRAN arithmetic expression with 
very little change in appearance: 

(5.*A + 4.*B* (X**2 - XZRO) 

The construction of both expressions is the same; the differences 
are notational. 

Elements of an arithmetic expression are of four types: con- 
stants, variables, operators, and functions. An expression may con- 
sist of a single constant or variable or a string of constants, vari- 
ables, and functions connected by operators. 
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Examples of arithmetic expressions follow; each expression is 
shown with its corresponding algebraic form. 

Algebraic Expression FORTRAN Expression 

2Vx 2.*SQTF(X)/3. 

3 

3xx -2(x+y) (3.*X*PI-2.* (X+Y) ) /4.25 

4.25 

a-sin 6 +2a cos(0 -45) A*SINF(THTA)+2.*A*COSF- 

(THTA-0.78540) 

(a 2 -b 2 ) (A**2-B**2) / (A+B)**2 

(a + b) 2 

ARITHMETIC STATEMENTS 

The arithmetic statement relates a variable, V, to an arithmetic 
expression, E, by means of the replacement operator, ( = ) : 

V=E 

Such a statement looks like a mathematical equation, but is treated 
differently. The equal sign is interpreted in a special sense; it does 
not represent a relationship between left and right members, but 
rather specifies an operation to be performed. 

In an arithmetic statement, the value of the expression to the 
right of the equal sign replaces the value of the variable on the left. 
This means that the value of the left-hand variable will change 
after the execution of an arithmetic statement. A few illustrations 
of arithmetic statements are given below : 

1. VMAX = VO + AXT 

2 T = 2.*PI*SQTF(1./G) 

3. PI = 3.14159 

4. THTA = OMGA + ALPH*T* *2/2. 

5. MIN = MIN0 

6. INDX = INDX + 2 

With the interpretation of the equal sign stated above, Example 
6 becomes meaningful as an arithmetic statement. If, for example, 
the value of INDX is 40 before the statement is executed, its value 
will be 42 after execution. 
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In. arithmetic expressions, a binary operator requires an operand 
on its left and right. The equal sign of an arithmetic statement is 
also considered to be a binary operator, as demonstrated in the 
following revised table of operators: 



Operator 


Use 


Interpretation 


— (Unary) 


-A 


negate A 


** 


A**B 


raise A to the Bth power 


* 


A*B 


multiply A by B 


/ 


A/B 


divide A by B 


-r 


A+B 


add B to A 


— (Binary) 


A-B 


subtract B from A 


= 


A=B 


replace the value of A with 
the value of B 



The replacement operator is considered to have the lowest bind- 
ing strength of all the operators; therefore, the expression on the 
right is evaluated before the operation indicated by the equal sign 
is performed. 

Multiple Replacement 

An important result of treating the equal sign as an operator is 
that operations can be performed in sequence. Just as there can 
be a series of additions, A+B+C, there can also be a series of 
replacements: 

A=B=C=D 

Notice that because the operand to the left of an equal sign 
must be a variable, only the rightmost operand, represented by D 
in the example, may be an arithmetic expression. The statement is 
interpreted as follows: "Let the value of the expression D replace 
the value of the variable C, which then replaces the value of the 
variable B" and so on. In other words, the value of the rightmost 
expression is given to each of the variables in the string to the 
left. A common use for this construction is in setting up initial 
values: 

XZRO=SZRO=AXRO=0 
T=T1=T2=T3=60 
P=FP=4. *ATM-AK 
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Only simple variables will compile correctly in this manner. For 
example, statements of the type A(1)=A(2) =R(1) =0.123 are not 
allowed and will not compile properly (subscripted variables may 
not be used in multiple replacement statements). 

Multiple replacement done in a single statement must not contain 
mixed mode variables. That is: 

A=B=C=10 compiles correctly 

I— J— 7 compiles correctly 

A=J=7 does not compile correctly 

Mode Conversion 

Another useful result in treating the equal sign as an operator 
is that the value of an expression on the right of an equal sign is 
converted to the mode of the left-hand variable, if necessary, before 
storage. For example: 

A=M Stores the value of M as a floating-point number in A 
K=B Stores the value of B (truncated) as an integer number in K 

If B = 4.75 and M = 7, the conversion above will result in the 
following values being assigned: 

A = 7.00000 . 

K = 4 

FUNCTIONS 

Functions are used in FORTRAN just as they are in ordinary 
mathematics, acting as variables in arithmetic expressions. The 
function name represents a call to a special subprogram which 
performs the calculations to evaluate the function; the result is used 
in the computation of the expression in which the function oc- 
curs. FORTRAN-D provides several mathematical functions: 
square root, sine, cosine, arctangent, exponentiation, and natural 
logarithm. 

The argument of a function can be a simple variable, a- sub- 
scripted variable, or an expression. The argument must be in a 
floating-point format. FORTRAN recognizes a symbol as a func- 
tion when it is a predefined symbol ending in F and followed by an 
argument enclosed in parentheses (if the F is missing from the 
term, the symbol is treated as a subscripted variable). The argu- 
ment of a function can consist of another function or groups of 
functions. For example, the expression: 
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LOGF(SINF(X/2)/COSF(X/2) ) 

is equivalent to log tan I -=- I 

FORTRAN-D contains the following functions: 

Function Name Meaning 

SQTF(X) Square root of X 

SINF ( X ) Sine of X, where X is 

expressed in radians 
COSF ( X ) - Cosine of X, where X is 

expressed in radians 
ATNF (X ) Arctangent X, where X is 

expressed in radians 
EXPF ( X ) Exponential of X 

LOGF(X) Logarithm of X 

Program Control 

In this section, FORTRAN statements are discussed in the con- 
text of program sequences. FORTRAN statements are executed 
in the order in which they are written unless instructions are given 
to the contrary by use of the program control statements. These 
statements allow the programmer to alter sequence, repeat sections, 
suspend operations, or bring the program to a complete halt. 

END STATEMENT 

E-ND occurs alone on a line and indicates the physical end of 
the program to the FORTRAN Compiler. It can be preceded by a 
line number. Every program must contain an END statement. 

STOP STATEMENT 

A program arranged so that the last written statement is the final 
and only stopping place needs no other terminating indication; the 
END statement automatically determines the final halt. Many pro- 
grams, however, contain loops and branches so that the last ex- 
ecuted statement can be somewhere in the middle of the written 
program. Frequently there is more than one stopping point. Such 
terminations are indicated by the STOP statement. This causes 
a final, complete halt; no further computation is possible, although 
the program may be completely restarted from the beginning. 
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When a STOP is encountered during program execution, the 
system signifies that a STOP has occurred by Outputting an exclama- 
tion point (!) to the Teletype or high-speed punch, whichever is 
being used as the Output device. 

PAUSE STATEMENT 

The STOP statement prevents further computation after it has 
been executed. There is a way, however, to suspend operation for 
a time and then restart the program. This procedure is frequently 
necessary when the user must do such tasks as loading and unload- 
ing paper tapes in the middle of a program. This kind of temporary 
halt is provided by the PAUSE statement. The PAUSE statement 
halts the program and returns control to the EduSystem 50 Moni- 
tor. The user may then perform any necessary manipulations and 
restart the program by typing the Monitor command START. 

GO TO STATEMENT 

There are various ways in which program flow may be directed. 
As shown schematically in Figure 9-2, a program may be a straight- 
line sequence ( 1 ) , or it may branch to an entirely different se- 
quence (2), return to an earlier point (3), or skip to a later point 
(4). The blocks represent sections of FORTRAN code. The lines 
indicate the path which control takes as the program executes. 



2 



* r 



t t t 

Figure 9-2. Program Flow 
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All of these branches can be performed in several ways, the 
simplest of which uses the statement: 

GO TO n 

where n is a statement number in the program. The use of this 
statement is described in the following example, which also 
illustrates the construction of a loop, the name given to program 
branches of the type shown in the example above. 

EXAMPLE OF INTEGER SUMMATION 

In the following example, the sum of successive integers is 
accumulated by repeated addition. The main computation is pro- 
vided by the three-instruction loop beginning with Statement 2. 
The statements preceding this loop provide the starting conditions, 
called the initialization. The partial sum is set to zero, and the 
first integer is given the value of one. The loop then adds the in- 
teger value to the partial sum, increments the integer, and repeats 
the operation. 

C SUM OF FIRST N INTEGERS BY ITERATION 

KSUM=0 

INUM=1 
2 KSUM=INUM+KSUM 

INUM=INUM+1 

GO TO 2 

END 

IF STATEMENT 

The program shown in the preceding example performs the re- 
quired computation, but note that the loop is endless. To get out 
of the loop the user must know when to stop the iteration and 
what to do afterwards. 

The IF statement fills both requirements. It has the following 
form: 

IF(E) K,L,M 

where E is any variable name, arithmetic expression, or arithmetic 
statement, and K, L. and M are statement numbers. The state- 
ment is interpreted in this way: 

If the value of E < 0, GO TO statement K 
E = 0, GO TO statement L 
E > 0, GO TO statement M 
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Thus, the IF statement decides when to stop a loop by evaluating 
an expression. It also provides program branch choices with the 
transfer of control, depending on the results of the evaluation of E. 
For example : 



SUM OF THE FIRST 50 INTEGERS 

KSUM=0 

INUM=1 v 

KSUM=INUM+KSUM 

INUM=INUM+ 1 

IF (INUM-50>2,2,3 

STOP 

EN D 



In the foregoing example, the initialization and main loop are 
the same as for the example in Figure 9-2 except that the GO TO 
statement of the earlier program has been replaced by an IF state- 
ment. The IF statement says, "if the value of the variable INUM 
is less than, or equal to, 50 (which is the same as saying that if the 
value of the expression INUM-50 is less than or equal to zero), 
transfer control to Statement 2 and continue the computation. If 
the value is greater than 50, stop." (See the section on Implemen- 
tation Notes for an alternate solution.) 

A loop may also be used to compute a series of values. The fol- 
lowing illustration is an example of a program to generate terms in 
the Fibonacci series of integers, in which each succeeding mem- 
ber of the series is the sum of the two members preceding it: 



c 


FIBONACCI SERIES, 100 TERMS 




DIMENSION FIB< 100) 




FIB(1)=1.0 




FIB(2)=1.0 




K=3 


5 


FIB<K)=FIB(K-1 >+FIB(K-2> 


6 


K=K+ 1 




IF (K-100)5>5; 10 


10 


STOP 




END 



In this program, the initialization includes a DIMENSION 
statement which reserves space in storage, and two statements 
which provide the starting values necessary to generate the series. 
Each time a term is computed, the subscript is incremented so 
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that each succeeding term is stored in the next location of the table. 
As soon as the subscript is greater than 100, the calculation stops. 

DO LOOPS 

Iterative procedures such as the program loop are so common 
that a more concise way of presenting them is warranted. Three 
statements are required to initialize the subscript, increment it, 
and test for termination. The following type of statement combines 
all these functions: 

DOnl=Kl,K2, K3 

here n is a statement number, 1 is a simple (non-subscripted) 
integer variable, and Kl, K2, and K3 are simple integer variables 
or integer constants which provide, in order, the initial value to 
which 1 is set, the maximum value of 1 for which the loop will be 
executed, and the amount by which 1 is incremented at each return 
to the beginning of the loop. If K3 is omitted from the statement 
it is assumed to be one ( 1 ) . Statement n must be a CONTINUE 
statement. 



FIBONACCI SERIES, 100 TERMS 

DIMENSION FIBC100) 

FIB( i )=1. 

FIB(2)=I.0 

DO 5 K=3j. 100 

FIB<K)=FIB(K-1)+FIB<K~2) 

CONTINUE 

STOP 

END 



In words, the DO statement says "Execute all statements 
through Statement 5 with K=3; when Statement 5 is encountered, 
perform the following test: If K4-1 is less than or equal to 100, 
set K=K+1 and continue the program by executing the first state- 
ment after the DO statement. If K+l is greater than 100, the next 
sequential statement following Statement 5 is executed." 

DO loops are commonly used in computations with subscripted 
variables. In such cases, it is usually necessary to perform the 
loops within loops. Such nesting of DO loops is permitted in 
FORTRAN. 
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c 


FIRST LOOP 




DO 10 1=1,20 




X<I)=0 


c 


NESTED LOOP FOLLOWS 




DO 5 K=2,40,2 




X<I)=X(I)+B<K)-ZCK>)**2 


5 


CONTINUE 


C 


END OF NESTED LOOP 




A< I )=X(I >**2+C(I ) 


10 


CONTINUE 



Sequential elements in the array X(l) are formed by summing 
the square of the difference of every second element in the B and 
Z arrays. Then the array A(l) is formed by summing every ele- 
ment in the array C(l) and the square of every element in the 
array X(l). The algebraic expression for the loop is as follows: 



where 



A t =X! a - Q 

40 
Xi= 2 (b k -z k ) 2 

k=2 



fori=l,2,3,...20 



for k=2,4,6,...40 



The following three rules about DO loops must be observed: 

1. DO loops may be nested, but they may not overlap. 
Nested loops may end on the same statement, but an 
inner loop may not extend beyond the last statement of 
an outer loop. Figures 9-3 schematically illustrates per- 
mitted and forbidden arrangements. 



DO 

DO 

DO 

CONTINUE 

CONTINUE 

DO 

DO 

DO 

CONTINUE 

CONTINUE 





r 



LEGAL NESTING 
TECHNIQUES 



DO 

DO 

CONTINUE 

CONTINUE 



ILLEGAL NESTING 
TECHNIQUES 



Figure 9-3. Legal and Illegal Nesting Techniques 

9-116 



3. 



If the user transfers into the range of a DO loop, the 
value to be incremented (1, for example) is not auto- 
matically initialized as specified in the DO statement. 
Transferring into the range of a DO loop is allowed as 
long as: 

a. Control was originally transferred out of the DO loop 
by some means other than by completing it. 

b. Incrementing and testing start with the current value of 
1 at the time control returns to the loop. 

A DO loop must end on a CONTINUE statement. 




CONTINUE 
CONTINUE 




ACCEPTABLE 
BRANCHING 



CONTINUE 
CONTINUE 



ILLEGAL 
BRANCHING 



Figure 9-4. Program Branching in DO Loops 

CONTINUE Statement 

A special statement (CONTINUE) is provided which is not 
an executable statement itself, but provides a termination for all DO 
loops. DO loops must be terminated on a CONTINUE statement. 
The CONTINUE statement is identified with the line number given 
in the DO statement. For example : 





rJO 37 MM= W 10 




IF (X(MM)-100.) 37,42*37 


37 


CONTINUE 




GO TO 102 


42 


STOP 
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A single CONTINUE statement can be referenced more than 
once in a single DO loop or can serve as the terminating line for 
two or more nested DO loops. 

COMPUTED GO TO 

The GO TO statement previously described is unconditional and 
provides no alternatives. The IF statement offers a maximum of 
three branch points. One way of providing a greater number of 
alternatives is by using the computed GO TO, which has the fol- 
lowing form: 

GOTO (Kl,K2,K3,...,Kn),J 

where K„ is statement number, and J is a simple integer variable, 
which takes on values of 1,2, 3, ...n according to the results of some 
previous computation. For example: 



IVAR= 14*J/2+K 

GO TO < 5, 7, 5, 7,5,7, 10), IVAR 

causes a branch to Statement 5 when IVAR=1, 3, or 5; to State- 
ment 7 when IVAR=2, 4, or 6; and to Statement 10 when 
IVAR=7. When IVAR is less than 1 or greater than 7, the next 
sequential statement after the GO TO is executed. 

FORTRAN Input/ Output 

So far, weliave assumed that all information (programs, data, 
and sub-programs) is in memory, withou| regard to how it is put 
there. Programs are read by a special loader, but the programmer 
is responsible for the input of data and the output of results by 
including directions for I/O operations in his program. 

For any input/output procedure, several questions must be 
answered: 

1 . In which direction is the data going? The data coming in 
is being read into memory; information going out is being 
written on whatever medium is specified. 

2. Which device is being used? Information may be trans- 
ferred between core and whatever input/output devices 
are available; each I/O operation must specify the device 
involved. 
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3. Where in core memory is the data coming from or going 
to? The amount of data and its location in the computer 
storage must be specified. 

4. In what mode is the data represented? In addition to 
floating and fixed-point modes for numeric data, there 
is the Hollerith mode for transferring alphanumeric or 
text information. 

5. What is the arrangement of the data? The format of in- 
coming or outgoing data must be specified. 

For every data transfer between core memory and an external 
device, two statements are required to provide all of the informa- 
tion listed above. The first three items are specified by the input/ 
output statement, and the last two items are determined by the 
FORMAT statement. 

DATA FORMATS 

FORTRAN-D provides for communication of data to and from 
a program in the following ways : 

ASCII Coded Data 

The Teletype can be used to transfer data to the program 
either via the keyboard (in which case the user types the data) 
or from previously punched paper tape (read via the Teletype 
tape reader). Data can be output from a program to the Tele- 
type, producing a printed copy with or without the corresponding 
punched paper tape. The high-speed reader and punch can also 
be used for data transfer via punched paper tape. No printed 
copy is made when output is to the high-speed punch. 

Binary Coded Data 

Disk and DECtape can also be used for data transfer, in which 
case the data is stored as a core image on tape in 128-word 
blocks of 12-bit binary words. Integers are read and written as 
single 12-bit words, floating-point numbers as three words. Alpha- 
numeric information is transmitted as 8-bit ASCII coded char- 
acters right-justified in 12-bit words (one character per word). 

INPUT/OUTPUT STATEMENTS 

Input/Output statements control the transfer of information. As 
illustrated below, I/O statements consist of three basic items of 
information: the device being accessed and the direction of transfer, 
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the number of the FORMAT statement controlling the arrangement 
of data, and the list of variable names whose values are to be 
output or changed by new input. 

NOTE 

There is a restriction on subscripted vari- 
ables when used with I/O statements. Sub- 
scripts to be used with I/O statements 
must be of the form: LL, where each L is 
a letter, and not of the form LD, where 
D is a digit. For example: 

DO10Ll=l,4 
ACCEPT 7,A(L1) 

will not store information correctly. The 
statement should read: 

DO10LL=l,4 
ACCEPT 7,A(LL) 

ACCEPT N,V(l),V(I+l),V*l+2 



■— List of variable 
names 
— Statement number of 
FORMAT statement 
L Device Selection and direction of 
transfer 

ACCEPT and TYPE Statements 

ACCEPT and TYPE transfer information between the Tele- 
type and EduSystem 50. ACCEPT causes information to be read 
into core memory from either the keyboard, the Teletype paper 
tape reader, or the high-speed reader if it is assigned before calling 
FORTRAN-D. ACCEPT is especially convenient if data is to be 
entered at the keyboard since it automatically supplies line feed 
when the RETURN key is typed. Also, the user may correct an 
erroneously typed value by typing the RUBOUT key. 

TYPE causes information to be transferred from core memory 
to the Teletype printer, the Teletype paper tape punch, or the 
high-speed punch if it is assigned before calling FORTRAN-D. 
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If the user needs the high-speed reader and punch for I/O, he 
must assign the devices for his use before calling the FORTRAN 
compiler (FORT) or operating system (FOSL). Once logged into 
EduSystem 50, he replies to Monitor's dot with the appropriate 
assign statements. For example: 

.ASSIGN P 
•P ASSIGNED 

.ASSIGN R 
R ASSIGNED 

The Monitor replies with P ASSIGNED and R ASSIGNED in 
response to the user. If the device requested is not available (being 
used by someone else), Monitor replies JOB XX HAS X, where 
XX is the job number assigned the device X. The high-speed 
reader/punch is device code 2. If running several programs, the 
user should reassign the devices before each run. 

READ and WRITE Statements 

EduSystem 50 FORTRAN also allows programs to read and 
write data files on disk. These data files are completely separate 
from program files. Data files are read and written by standard 
READ and WRITE statements within the FORTRAN program. 
The device code for the disk is 3. Since programs which use disk 
are treated differently by FORT from those which do not use disk, 
it is necessary to identify programs which do. This is done by 
placing a DEFINE DISK statement as the first statement in any 
FORTRAN program which includes a READ or WRITE state- 
ment with a device code of 3. 

Just as FORT must ask for the names of its input and output 
files, so must a FORTRAN program ask for the names of its disk 
files. FORTRAN programs do this by typing INPUT: and OUT- 
PUT: a second time. The user responds by typing the names of 
the data files to be read or written by the program. FORTRAN 
will ask for both INPUT and OUTPUT for all programs which 
include a DEFINE DISK statement. If only one is to be used, 
respond to the other by typing the RETURN key. 

VARIABLE SPECIFICATION IN I/O STATEMENTS 

Following the instruction that selects the device and direction of 
transfer is the statement number of the FORMAT statement that 
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controls the arrangement of the information being transferred. For 
example: 



accept 10, A 
10 FORMAT (E) 



Every I/O statement must have a reference to a FORMAT state- 
ment. 

The final item specified in the I/O statement is the list of 
variables. This is a sequential list of the names of variables and 
array elements whose values are to be transferred in the order in- 
dicated. There is no restriction on the number of names which may 
appear in the list of an I/O statement, as long as the total state- 
ment length does not exceed 128 characters. The modes of the 
variables named need not agree with the corresponding FORMAT 
statement; however, the modes specified in the FORMAT state- 
ment take precedence. For example, where A=3.2, J=27, KAL= 
302, andBOB=7.58: 



TYPE 23,A,J,KAL,B0B 
23 FORMAT C I, E, I,E) 



The decimal portion of A is dropped and the number 3 is 
printed as an integer; the value of J is printed as a normalized 
number; KAL is printed as an integer; and BOB is printed as a 
normalized number. The output would look like the following: 

+ 3 +0.270000E+2 + 302 +0. 758000E+0 1 

NOTE 

In READ and ACCEPT statements, al- 
though the number is read according to the 
FORMAT statement, it is stored according 
to the mode of the variable. For example: 

5 ACCEPT 10/A 
10 FORMAT (U 

causes. the number 12.3 typed by the user 
to be read as 12 and stored as 0.120000E+2. 
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Array names included in I/O lists must be subscripted in one 
of the following forms: 

A(V) A(V+C) A(V-C) A(C) 

where A is the array name, V is a simple integer variable and C 
is a positive nonzero integer constant. 

TYPE -10jAjIjB«C<I+1)*N<J+1> 
10 FORMAT (Ej.IjE,/) 

A=A+CCJ)**2-CCN)**2) 

TYPE 10jA,J*B*C(N) 



If the list contains more names than there are elements in the 
FORMAT statement, the FORMAT statement is reinitialized when 
the elements are exhausted. The first element in the FORMAT 
statement then corresponds to the next name in the list. For in- 
stance, in the preceding example when the value of the variable, B, 
is printed in the E format, the control character, slash (/), causes 
a carriage return /line feed to occur. Then the FORMAT statement 
is reinitialized, and the array element, C(I+K), is printed in the E 
format and the array element N(J+L) in the I format. 

The list does not have to exhaust the elements of a FORMAT 
statement. If there are fewer names in the list than there are ele- 
ments in the FORMAT statement, the program completes the I/O 
operation and proceeds to the next sequential FORTRAN state- 
ment. If this next statement is another I/O statement that references 
a previously unexhausted FORMAT statement, that FORMAT 
statement is reinitialized. FORMAT statements are reinitialized 
when they are referenced or when all of their elements are ex- 
hausted. 

FORMAT STATEMENT 

The FORMAT statement controls the arrangement and mode 
of the information being transferred. The values of names appear- 
ing in the I/O statement list are transferred in the mode specified 
by the corresponding element in the FORMAT statement. These 
controlling elements consist of the characters E, I, A, slash (/), 
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and quote ("). The set of elements must be enclosed in parentheses 
and separated by commas. For example: 

FORMAT <A,E, I,/» "HOLLERITH") 

The control elements E and I are used for defining the mode of 
the data being transferred. When a variable is transferred in the E 
format, it is stored or output in floating-point form. If the variable 
is transferred in the I format, it is stored or output in fixed-point 
or integer form. Mode conversion on input or output can be ac- 
complished because the elements in the FORMAT statement define 
the mode of the data. The mode of the original variable is over- 
ridden where necessary. For example : 

TYPE 10, A 
40 FORMAT CD 



The variable, A, is printed as an integer, and the fractional part 
of A is truncated. If A has a value of 14.96, only the integer part, 
14, is printed. If A has an absolute value of less than one, zero is 
printed. 

THE A FORMAT SPECIFICATION 

The control element, A, is used for defining the alphanumeric 
mode of data I/O. When a variable is to be assigned an alpha- 
numeric value, data is read one character per variable. FORTRAN 
ignores CTRL/C, blank tape, RUBOUT, and 0200 code (leader/ 
trailer tape). FORTRAN does not see the form-feed character 
when input is from the disk. The decimal equivalent of the ASCII 
value of the character is assigned to the variable. For example: - 

A = 301 (ASCII) = 192 (decimal) 

Any variable assigned the alphanumeric value, A, would be set 
equal to 192. 

It is possible to do arithmetic with integer variables assigned 
alphanumeric values. For example: 





DO 10 J=l,5 




ACCEPT 12, K(J) 




IF (K(<J)--141> 10,40,100 


10 


CONTINUE 


12 


FORMATCA) 
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where the IF statement tests to see if the last character read is a 
carriage return (which is ASCII 215 or 141 decimal); if so, con- 
trol transfers to Statement 40; if not, control stays within the DO 
loop. 

It is not possible to do arithmetic with real variables assigned 
alphanumeric values. Output in alphanumeric format converts the 
value of the variable into an ASCII character and prints that char- 
acter. For example : 



12 FORMAT(A) 

DO 20 1=1,5 
TYPE 12, A(J) 

20 CONTINUE 



If the variables A(l) through A(5) were not originally assigned 
alphanumeric values, the results of the output can be meaningless. 

INPUT FORMATS 

Input data words can only consist of a sign, a decimal value, an 
exponent value if the data is floating-point, and a field terminating 
character such as space. Any character that is not a number, 
decimal point, sign, or E can be used to terminate a field except 
the RUBOUT character. When typing data, any number of spaces 
or other nonnumeric characters can be typed before the sign or 
decimal value in order to make the hard copy more readable. 

Input data can be transferred into core memory from either the 
Teletype paper-tape reader, the keyboard, the high-speed reader, 
or DECtape. Input can be entered in either fixed- or floating-point 
modes (integers or decimal numbers). The mode in which data is 
stored in core memory is controlled by the first letter of the vari- 
able name. The characters read into core are determined by the 
corresponding element in the FORMAT statement. 

Integer Values — the I Format 

An integer data field consists of sign 11 and up to six decimal 
characters. Some examples of integer values are as follows: 



13 Plus sign can be represented by a plus or space character. Minus is 
represented by a minus character. If a sign character is absent from the 
data word, the data is stored as positive. 
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Typed Numbers 


Values Accepted 


-2001 


-2001 


-40 


-0040 


-0040 


-0040 


16 


0016 


-2041 


2047 



Real Values — the E Format 

A floating-point input word consists of a sign, the data value up 
to six decimal characters, an E if an exponent is to be included, the 
sign of the exponent, and the exponent (i.e., the power of ten by 
which the data word is multiplied). For example: 

ddd.dddEnn 

The d's represent numerical characters in the data and the n's 
represent the 2-digit power of ten of the exponent (preceded by a 
sign). Either the sign, the decimal point, or the entire exponent 
part can be omitted. If the sign is omitted, the number is assumed 
to be positive; if the decimal point is omitted, it is assumed to ap- 
pear after the rightmost decimal character. If the exponent is 
omitted, the power of ten is taken as zero. 

Some examples of floating-point values are as follows: 

Typed Numbers Values Accepted 



16. 


0.16 x 10 2 


.16E02 


0.16 x 10-' 


1600.E-02 


0.16 x 10 2 



OUTPUT FORMATS 
E and I Formats 

Integer values are always printed as the sign and a maximum 
number of four characters with spaces replacing leading zeros. On 
output, integers are left justified within the stated field. Sufficient 
trailing spaces are printed to fill the field followed by one additional 
space. 

Floating-point values are printed in a floating-point format which 
consists of sign, leading zero, decimal point, six decimal characters, 
the character E, the sign of the exponent (minus or plus), and an 
exponent value of two characters. For example: 
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Integer Values Output Format 

-1043 -1043 

-0016 - 16 

+0016 + 16 

Floating-point values are printed as follows: 

SO.ddddddEsnn 

where: S represents the sign, minus sign, or space 

dddddd represents six decimal digits of the data word 
E indicates exponential representation 
s represents the sign of the exponent value 
nn represents the exponent value 

Some examples of floating-point output are: 

Decimal Value Output Format 

-8,388,608.0 -0.8388608E+07 

-.000119209 0.119209E-03 

FORMAT Control Specifications 

In most cases when data is to be presented, it must be labeled 
and arranged properly on a data sheet. In order that this can be 
accomplished with FORTRAN, a provision has been made so that 
text information and spacing can be printed along with the data 
words. These features are provided by the special FORMAT con- 
trol elements quote (") and slash (/). The slash character causes 
a return to the left margin. 

Hollerith Output 

When text information is enclosed in quotes and is contained as 
part of a FORMAT statement, it is output to the specified device 
as it appears in the statement. This output occurs when a TYPE 
or WRITE statement references a FORMAT statement containing 
text, and all other elements of the FORMAT statement previous to 
the text have been used. All legal Teletype characters (other than 
the quote character itself) can be contained within quotes and out- 
put as text. 
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TYPE 10 

FORMAT </, "THIS IS HOLLERITH",/) 



100 



TYPE 100,AMIN,AMAX 

FORMAT < /, "MIN IMUM= ", E, /, "MAXIMUM= ", E, /) 



TYPE 210 
210 FORMATC/,/," CUMULATIVE DISTRIBUTION",/,/' 

INCREMENTS FREQUENCY",/) 

DO 220 K=l, 100 

TYPE 250,K,VALU<L),VALU(K+1),COUNT(K) 

CONTINUE 
250 FORMAT < I , "", E, " ", E, /) 

Implementation Notes 

DOUBLE SUBSCRIPTS 

This version of FORTRAN does not have the facility for double- 
subscripted variables. To accomplish double subscripting, the pro- 
grammer has to include indexing statements in the source program 
as illustrated below. In this example, the matrices are stored col- 
umnwise in memory; that is, sequential locations in memory are 
used as follows: 

Relative Position 
Element in Memory (INDX) 



all 


1 


a21 


2 


a31 


3 


a41 


4 


a51 


5 


a61 


6 


al2 


7 


a22 


8 



a56 
a66 



35 
36 



If referencing Element a56 in the array, M=5, N=6, (1=6 for 
a 6 by 6 array), and INDX=M+1*(N-1)=5+1*5=35. If ref- 
erencing Element a22, INDX=2+6* 1=8. 

9-128 



C MATRIX MULTIPLY PROGRAM 

DIMENSION A(36)*B(36)*C(36) 
C ACCEPT DIMENSION OF ARRAY 

ACCEPT 1,1 

1 FORMAT(I) 
DO 10 M= I, I 
DO 10 N=M 
INDX=M+I*CN- 1 ) 

C ACCEPT FIRST MATRIX 
ACCEPT 1,A(INDX) 

2 FORMAT(E) 
1(3 CONTINUE 

TYPE 15 
15 FORMAT (/,/.,/> 

DO 2 M= 1, I 

DO 2 N = 1 , I 

INDX=M+I*(N- 1 ) 
C ACCEPT SECOND MATRIX 

ACCEPT 1,B(INDX> 

CC INDX) = 
20 CONTINUE 

C MULTIPLY MATRICES 

DO 30 M= 1, I 

DO 30 N= 1* I 

DO 3 K= \, I 

IC = N+I*(M- 1 ) 

IA=K+1*(M- 1) 

IB=K+ 1*(K- 1 ) 

C(IC)=CCIC)+ACIA)*B<IB) 

30 CONTINUE 

TYPE 15 
C PRINT RESULTS IN MATRIX FORM 

TYPE 2 1 

DO 4 M= 1, I 

TYPE 21 

DO 40 N= l.r I 

INDX=N+I*(M- 1) 

TYPE liC(INDX) 
40 CONTINUE 

21 FORMAT(/) 

TYPE 15 

END 

SUBSTATEMENT FEATURE 

The most important result of treating the equal sign as a binary 
operator (as explained in the section on Arithmetic Statements) 
is that it may be used more than once in arithmetic statement. In 
addition to simple replacement operations (see section on Multiple 
Replacement), consider the following: 

CPRM= (CKL-CKG) / (CPG = P*(Q+1)) 
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The internal arithmetic statement (or substatement). CPG P* 
(Q+l). is set off from the rest of the statement by parentheses. 
The complete statement is a concise way of expressing the following 
common type of mathematical procedure: 

Let: C 1 = ? ^ 

Where: C 1)K = p.(q+l) 

The stating of a relation followed by the conditions for eval- 
uating any of the variables can be expressed in a single arithmetic 
statement in FORTRAN. 

A second use of the equal sign is shown below. For background 
on this short program, see the discussion of the same problem in 
the section on the IF statement. 



SUM OF THE FIRST 50 INTEGERS 

KSUM=0 

INUM 50 

KSUM=INUM+KSUM 

IFCINUM+INUM-1 >3,3,2 

STOP 



In this example, the sum is formed by counting down, but the 
same results are achieved as in the section on the IF statement. 
The initialization is changed so that INUM starts with the value of 
50 instead of 0, and the statement, INUM=INUM+1, is no longer 
required. 

ERROR CHECKING 

Because of the extremely compact nature of the FORTRAN-D 
Compiler, either FORTRAN features or error checking will suffer. 
In the case of FORTRAN-D, checking for .certain errors is not as 
important as preserving the language. Therefore, the programmer 
is advised to follow the rules as stated in this manual and carefully 
check his program for mistakes. For example, the statement 

A = B + C - 

will compile, although at execution time it will give unpredictable 
results. 
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It should be noted that data areas must not extend below loca- 
tion 5600 in FORTRAN-D. No diagnostic is issued unless program 
and data areas actually overlap. A maximum of 896 i0 words are 
available for data. Care should be taken not to exceed the limits 
through use of large arrays, etc. Similar obvious errors are accepted 
by the Compiler; their effects are often unpredictable. 

FORTRAN-D SOURCE PROGRAM RESTRICTIONS 

The following limits are imposed upon all FORTRAN-D source 
programs : 

1. Not more than 896 data cells. This includes all dimen- 
sional variables, user-defined variables, constants, and all 
constants generated by the usage of a DO loop. 

2. Not more than 20 undefined forward references to unique 
statement numbers per program. An undefined forward 
reference is a reference to any statement label that has 
not previously occurred in the program. Multiple refer- 
ences to the same undefined statement numbers are con- 
sidered as one reference. 

3. Not more than 64 different variable names per program. 

4. Not more than 128 characters per input statement. 

5. Not more than 40 numbered statements per program. 

FORTRAN-D COMPILER AND OPERATING SYSTEM 
CORE MAP 

The Compiler occupies the following core locations: 

0003-7600 Compiler plus tables 
7200-7600 Compiler tables (undefined forward ref- 
erence tables, etc. ) 

The Operating System occupies locations: 

0000-5200 Operating System for paper I/O 
0000-6000 Operating System for disk I/O 

Locations 5201 through 7576 are available for the user's pro- 
gram when using paper tape input/output. 
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Table 9-10. FORTRAN-D Statement Summary 



Statement and Form 



Explanation 



Arithmetic Statements 

v = e 

Control Statements 

GOTOn 

GOTO (n 1 ,n 2 ,...,n I1 ),i 

IF (e) ni.n2.ri3 

DO n i=k 1 ,k 2 ,k 3 

CONTINUE 
PAUSE 
STOP 
END 

Specification Statements 

DIMENSION v^nO, 
v 2 (n 2 ) v n (n n ) 

DEFINE device 

FORMAT ( Sl ,s 2 ,...,s n ) 

COMMENT 

Input/ Output Statements 

ACCEPT f , list 

TYPE f , list 



v is a variable (possibly subscripted); e is 
an expression. 



n is a statement number. 

n lv ..,n n are statement numbers; i is a non- 
subscripted integer variable. 

e is an expression; n 1 ,n 2 ,n 3 are statement 
numbers. 

n is the statement number of a CON- 
TINUE; i is an integer variable; kj.k^kg 
are integers or nonsubscrip ted integer vari- 
ables. 

Proceed 

Temporarily suspend execution. 

Terminate execution. 

Terminate compilation; last statement in 
program. 



Vi v n are variable names; n^...,^ are 

integers. 

Device is DISK or TAPE. 

s is a data field specification. 

Designated by C as first character on line. 



f is a FORMAT statement number; list is 
a list of variables; input is from the Tele- 
type. 

f is a FORMAT statement number; list is 
a list of variables; output is to the Teletype. 
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Table 9-10 (Cont.). FORTRAN-D Statement Summary 



Statement and Form 



Explanation 



READ u,f, list 



WRITE u,f , list 



u is an integer representing the device 
which data is to be read: l=Teletype, 2= 
high-speed reader, 3=disk; f is a FORMAT 
statement number; list is a list of variables. 

u is an integer representing device onto 
which data will be written: l=Teletype, 
2=high-speed punch, 3=disk, f is a FOR- 
MAT statement number; list is a list of 
variables. 



FORTRAN-D Error Diagnostics 

Diagnostic procedures are provided in the Compiler to assist the 
programmer in program compilation. When the compiler detects 
errors in a FORTRAN source program, it prints the error mes- 
sages on the user terminal. These messages indicate the source of 
the errors and direct the programmer's efforts to correct them. To 
speed up the Compiler process, the Compiler prints only an error 
code. The programmer then looks up the error message correspond- 
ing to the code in Tables 9-11 through 9-13 and takes the appro- 
priate corrective measures. 



COMPILER COMPILATION DIAGNOSTICS 

Format of Diagnostics 



xxxx 

A 



XX 

A 



XX 

A 



-The identifying condition 
code 



-The number of statements since the ap- 
pearance of a numbered statement (octal 
value). 



-The statement number of the last numbered statement. 
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For example: 



10 A=I(<J+1> 

B = A*(B+SIi\JF(THTA) 



During compilation of the previous statements, the following 
error code would be printed: 

1 1 1 1 

indicating that a statement which occurs one statement octal, (one 
decimal) after the appearance of Statement 10 is in error. The 
message corresponding to Code 1 1 shows that the number of left 
and right parentheses in the statement is not equal. 

If a statement number is referenced but does not appear in the 
source program, the diagnostic code will be printed as follows: 

xxxx 77 20 

where the number usually reserved for the last numbered statement 
(xxxx) is replaced by the missing statement, e.g. 

GU TO 100 . 

The diagnostic would appear as follows where Statement 100 is 
never defined. 

100 77 20 

Table 9-11. FORTRAN-D Compiler Compilation Diagnostics 

Error 

Code Explanation 

00 Mixed mode arithmetic expression 

01 Missing variable or constant in arithmetic expression 

03 Comma was found in arithmetic expression 

04 Too many operators in this expression 

05 Function argument is in fixed-point mode 

06 Floating-point variable used as a subscript 

07 Too many variable names in this program 

1 Program too large, core storage exceeded 

11 Unbalanced right and left parentheses 
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Table 9-11 (Cont.). FORTRAN-D Compiler Compilation Diagnostics 



Error 

Code Explanation 



12 Illegal character found in this statement 

1 3 Compiler could not identify this statement 

14 More than one statement with same statement number 

15 Subscripted variable did not appear in a DIMENSION 
statement 

1 6 Statement too long to process 

17 Floating-point operand should have been fixed-point 

20 Undefined statement number 

21 Too many numbered statements in this program 

22 Too many parentheses in this statement 

23 Too many statements have been referenced before they 
appear in the program 

25 DEFINE statement was preceded by some executable 
statement 

26 Statement does not begin with a space, tab, C, or number 



COMPILER SYSTEMS DIAGNOSTICS 

Certain errors can make it impossible for the Compiler to pro- 
ceed in the normal manner. These errors occur before the Com- 
piler has been loaded into core. They may be caused by improp- 
erly loading the Compiler, by not having an END statement on a 
source file, by a machine malfunction, or by other errors. These 
errors, referred to as system errors, are explained in Table 9-12. 

Table 9-12. FORTRAN-D Compiler Systems Diagnostics 



Error 

Code Explanation 



0240 System file error. One of the FORTRAN components can- 

not be found or the disk is full, preventing FORTRAN 
from proceeding. Try recalling FORT. 

3 1 00 Illegal operator on compiler stack. 

3417 Preprecedence error. 

6145 Could not find FOSL on system device; if the error occurs, 

it may be necessary to reload FORT and FOSL. 

6223 Error while loading the Compiler. 

6226 Same as above. 

6257 Same as above. 

6724 No END statement on source device. 

6746 Same as above. 

7114 Same as above. 
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OPERATING SYSTEM DIAGNOSTICS 

Not all errors are detected by the Compiler. Some errors can 
only be detected by the operating system (FOSL). Also there are 
some conditions which indicate errors on the part of the Compiler 
and/or operating system. When such an error occurs during run- 
ning of a program, the computer prints out an error message con- 
taining the word TILT or ERROR and an error number. The 
computer then halts. If the CONTINUE switch is pressed, the com- 
puter takes the action listed in Table 9-13. 

Table 9-13. FORTRAN-D Operating System Diagnostics 

Error 

Code Explanation 



01 Checksum error on FORTRAN binary input 

02 Illegal origin or data address on FORTRAN binary input 

04 Disk input-output error 12 

05 High-speed reader error 

06 Illegal FORTRAN binary input device 

1 1 Attempt to divide by zero 

12 Floating-point input data conversion error 

13 Illegal op code 

14 Disk input-output error 12 

15 Non-FORMAT statement used as a FORMAT 

16 Illegal FORMAT specification 

17 Floating-point number larger than 2047 

20 Square root of a negative number 

21 Exponential negative number 

22 Logarithm of a number less than or equal to zero 

40 Illegal device code used in READ or WRITE statement 

41 System device full, could not complete a WRITE statement 

76 Stack underflow error 13 

77 Stack overflow error 13 



12 May be caused by machine malfunction or operating system error. 

13 May be caused by source program or loading error; to correct, do the 
following in descending order. 

a. Use Diagnose to determine where the error occurred. 

b. Recompile the source program. 

c. Examine source program (in particular the arithmetic statements 
and subscripted variables). 
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FAL-D ASSEMBLER 

Introduction 

The EduSystem 50 Assembly System is composed of the PAL-D 
Symbolic Assembler, LOADER, and ODT. The PAL-D Assem- 
bler is used to translate the user's source program into an object 
program (binary or machine code). LOADER is used to transfer 
the user's object program from the disk into core for debugging 
or execution. ODT (Octal Debugging Technique) is used to dy- 
namically debug the object program which has been loaded into 
core using LOADER. 

The PAL-D Assembler is fully documented in Programming 
Languages 1972, Chapter 14. PAL-D source programs are usually 
written on-line using the EDIT program, which stores them in 
disk files. The Assembler checks for assembly language syntax 
errors and for undefined user symbols. To call the PAL-D Assem- 
bler, the user types: 

.R PALD 

PAL-D responds by requesting INPUT: Type the name of the 
source program or programs to be assembled. A maximum of 
three files can be assembled together. PAL-D then requests OUT- 
PUT: Type the name of the new file in which PAL-D will store the 
assembled program in executable binary form. PAL-D then re- 
quests OPTION: For a normal assembly, press the RETURN key. 
If an assembly listing is not desired, respond to OPTION with N. 

PAL-D then proceeds to assemble the program: any errors 
in the program are indicated; the program symbol table is printed; 
and finally, an assembly listing of the source program is printed. 
When the listing is completed and the assembly finished, control 
is returned to the Monitor. 

EduSystem 50 PAL-D 

Because of the necessary hardware changes made for time- 
sharing on EduSystem 50, PAL-D has been revised in the fol- 
lowing ways (as differing from PAL-D on a non-timeshared 
PDP-8): 

A. PAL-D, under EduSystem 50, allows 245 (decimal) user 
symbols in addition to the permanent symbols listed in 
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B. 



Table 9-14. All symbols reside in locations 5200 through 
7777. The permanent symbol table has been revised to 
include all instructions peculiar to the time-sharing system. 
A CTRL/C (tC) from the Teletype terminates the assem- 
bly, and halts. PAL-D, sending the user back to the Monitor. 



Example of a PAL-D Program 



•R PALD 












INPUT: 


TYPE2 










OUTPUT: 


BIN2 










OPTION': 












COUNT 


041 5 










CRLF 


0417 










LCCP 


0406 










OUT 


0425 










REG 


0416 










START 


0400 














/PROGRAM TO 


TYPE OUT 


"0123456789" 






*0400 








0400 


7200 


START, 


CLA 






0401 


421 7 




JMS 


CRLF 




0402 


1377 




TAD 


(-12) 




040 3 


3215 




DCA 


COUNT 




0404 


1376 




TAD 


(260 ) 


/ASCII CODE FOR ZERO (0) 


040 5 


3216 




DCA 


REG 




040 6 


1216 


LOOP, 


TAD 


REG 




040 7 


4225 




JMS 


OUT 




0410 


2216 




ISZ 


REG 




041 1 


221 5 




ISZ 


COUNT 




0412 


5206 




JMP 


LOOP 




0413 


421 7 




JMS 


CRLF 




0414 


7402 




HLT 






0415 


0000 


COUNT, 









0416 


0000 


REG, 









0417 


0000 


CRLF, 









0420 


1375 




TAD 


(215) 


/ASCII FOR CARRIAGE RETURN 


0421 


4225 




JMS 


OUT 




0422 


1374 




TAD 


(212) 


/LINE FEED 


0423 


4225 




JMS 


OUT 




0424 


561 7 




JMP 


I CRLF 




0425 


0000 


OUT, 









0426 


6046 




TLS 






042 7 


60 41 




TSF 






0430 


5227 




JMP 


.-1 




0431 


7200 




CLA 






0432 


5625 




JMP 


I OUT 




0574 


0212 










0575 


0215 










0576 


0260 










0577 


7766 










'BS 
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Table 9-14. EduSystem 50 Symbol List 



Mnemonic Code Operation Event Time 



Memory Reference Instructions 



AND 


0000 


Logical AND 


TAD 


1000 


Twos complement add 


ISZ 


2000 


Increment & skip if zero 


DCA 


3000 


Deposit & Clear AC 


JMS 


4000 


Jump to subroutine 


JMP 


5000 


Jump 


Group 1 Operate 


Microinstructions 


NOP 


7000 


No operation 


IAC 


7001 


Increment AC 


RAL 


7004 


Rotate AC & link left one 


RTL 


7006 


Rotate AC & link left two 


RAR 


7010 


Rotate AC & link right one 


RTR 


7012 


Rotate AC & link right two 


CML 


7020 


Complement link 


CMA 


7040 


Complement AC 


CLL 


7100 


Clear link 


CLA 


7200 


Clear AC 



1 

3 
3 

3 
3 
3 
2 
2 
1 
1 

Group 2 Operate Microinstructions 

HLT 7402 Halts the computer 4 

OST 7404 Inclusive OR switch register 

with AC 3 

Skip unconditionally 

Skip on nonzero link 

Skip on zero link 

Skip on zero AC 

Skip on nonzero AC 

Skip on minus AC 

Skip on plus AC (zero is positive) 



SKP 


7410 


SNL 


7420 


SZL 


7430 


SZA 


7440 


SNA 


7450 


SMA 


7500 


SPA 


7510 


Combined 


Operate Micr 


CIA 


7041 


STL 


7120 


GLK 


7204 


STA 


7240 


LAS 


7604 



Complement & increment AC 

Set link to 1 

Get link (put link in AC, bit 11) 

Set AC =-1 

Load AC with switch register 

PSEUDO-OPERATORS 
DECIMAL OCTAL 

EXPUNGE PAGE 

FIELD PAUSE 

FIXTAB TEXT 

I XLIST 

Z 
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KEYBOARD 


READER 


KSF 


6031 


KCC 


6032 


KRS 


6034 


KRB 


6036 


KSB 


6400 


SBC 


6401 


KSR 


6030 


TELEPRINTI 
TSF 


iR/PUNG] 
6041 


TCF 


6042 


TPC 


6044 



Table 9-14 (Cont.). EduSystem 50 Symbol List 

Mnemonic Code Operation Event Time 

IOT Microinstructions 

PROGRAM INTERRUPT 

IOT 6000 (See Introduction to Programming 

1972, Chapter 6.) 



Skip if keyboard/ reader flag =1 1 
Clear AC & keyboard/ reader flag 2 
Read keyboard/ reader buffer 3 

Clear AC & read keyboard buffer, 2,3 
& clear keyboard flag 
Set keyboard break 
Set buffer control flags 
Read keyboard string 



Skip if teleprinter/ punch flag =1 1 
Clear teleprinter/ punch flag 2 

Load teleprinter/ punch buffer, 3 

Select & print 

TLS 6046 Load teleprinter/ punch buffer, 2,3 

Select & print, and clear 
Teleprinter/ punch flag 

SAS 6040 Send a string 

HIGH-SPEED READER (TYPE PC02) 

RSF 6011 Skip if reader flag = 1 1 

RRB . 6012 Read reader buffer & clear flag 2 

RCF 6014 Clear flag & buffer & fetch character 3 

RRS 6010 Read reader string 

HIGH-SPEED PUNCH (TYPE PC03) 

Skip if punch flag =1 1 

Clear flag & buffer 2 

Load buffer & punch character 3 

Clear flag & buffer, load & punch 2,3 
Punch string 

DECTAPE TRANSPORT (TYPE TU55) 

AND CONTROL (TC01) 

DTXA 6764 Load status register A3 

DTSF 6771 Skip on flags 1 

DTRB 6772 Read status register B 2 
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PSF 


6021 


PCF 


6022 


PPC 


6024 


PLS 


6026 


PST 


6020 



Table 9-14 (Cont.). EduSystem 50 Symbol List 



Mnemonic 


Code 


Operation 


Event Time 


PROGRAM 


CONTROL 


t 




URT 


6411 


User run time 




TOD 


6412 


Time of day 




RCR 


6413 


Return clock rate 




DATE 


6414 


Date 




STM 


6415 


Quantum synchronization 




TSS 


6420 


Skip on TSS/ 8 




USE 


6421 


User 




SSW 


6430 


Set switch register 




CKS 


6200 


Check status 




ASD 


6440 


Assign device 




REL 


6442 


Release device 




DUP 


6402 


Duplex 




CON 


6422 


Console 




FILE CONTROL 






WHO 


6616 


Who 




SIZE 


6614 


Segment size 




RFILE 


6603 


Read file 




WFILE 


6605 


Write file 




ACT 


6617 


Account number 




REN 


6600 


Rename file 




OPEN 


6601 


Open file 




CLOS 


6602 


Close file 




PROT 


6604 


Protect file 




CRF 


6610 


Create file 




EXT 


6611 


Extend file 




RED 


6612 


Reduce file 




FINF 


6613 


File information 
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Table 9-15. PAL-D Error Diagnostics 



Error Code Explanation 

BE Two PAL-D internal tables have overlapped — This 

situation can usually be corrected by decreasing the 
level of literal nesting or number of current page 
literals used prior to this point on the page. 

DE System device error — An error was detected when 

trying to read or write onto the system device; after 
three failures, control is returned to the Monitor. 

DF Systems device full — The capacity of the systems 

device has been exceeded; assembly is terminated 
and control is returned to the Monitor. 

IC Illegal character — An illegal character was encoun- 

tered other than in a comment or TEXT field; the 
character is ignored and the assembly continued. 

ID Illegal redefinition of a symbol — An attempt was 

made to give a previously defined symbol a new value 
by means other than the equal sign; the symbol was 
not redefined. 

IE Illegal equals — An equal sign was used in the wrong 

context. 



Examples 



11JJ1C!>. 

TAD A+=B the expression to the left of ft\e 
A+B=C equal sign is not a single symbol 

or, the expression to the right of 
the equal sign was not previously 
defined 

II Illegal indirect — An off-page reference was made; a 

link could not be generated because the indirect bit 
was already set. 
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Table 9-15 (Cont.). PAL-D Error Diagnostics 

Error Code Explanation 

ND The program terminator, $, is missing. 

PE Current nonzero page exceeded — An attempt was 

made to: 

a. override a literal with an instruction, or 

b. override an instruction with a literal; this can be 
corrected by 

( 1 ) decreasing the number of literals on the page 
or 

(2) decreasing the number of instructions on the 
page. 

PH Phase error — PAL-D has received input files in an 

incorrect order; assembly is terminated and control 
is returned to the Monitor. 

SE Symbol table exceeded— Assembly is terminated and 

control is returned to the Monitor; the symbol table 
may be expanded to contain up to 1184 user symbols 
by saving a file named .SYM on the system device. 

US Undefined symbol — A symbol has been processed dur- 

ing pass 2 that was not defined before the end of 
pass 1. 

ZE Page exceeeded — Same as PE except with refer- 

ence to page 0. 
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UTILITY PROGRAMS 

Symbolic Editor 

The EduSystem 50 Symbolic Editor (EDIT) provides the user 
with a powerful tool for creating and modifying source files on- 
line. Its precise capabilities and commands are detailed in Intro- 
duction to Programming 1972, Chapter 5. EDIT allows the user 
to delete, insert, change, and append lines of text, and then obtain 
a clean listing of the updated file. EDIT also contains commands 
for searching the file for a given character. 

EDIT considers a file to be divided into logical units, called 
pages. A page of text is generally 50-60 lines long, and hence cor- 
responds to a physical page of program listing. A FORTRAN-D 
program is generally 1-3 pages in length; a program prepared for 
PAL-D may be several pages in length. EDIT operates on one 
page of text at a time, allowing the user to relate his editing to the 
physical pages of his listing. EDIT reads a page of text from the 
input file into its internal buffer where the page becomes available 
for editing. When a page has been completely updated, it is writ- 
ten onto the output file and the next page of the input file is made 
available. EDIT provides several powerful commands for paging 
through the source file quickly and conveniently. 

NOTE 

The end of a page of text is marked by a 
form feed (CTRL/L) character. Form feed 
is ignored by all EduSystem 50 language 
processors. 

To call the Editor, type: 



•R EDIT 

EDIT responds by requesting INPUT: Type and enter the 
name of the source file to be edited. If a new file is to be created 
using EDIT, there is no input file. In this case, strike the RETURN 
key.. EDIT then requests OUTPUT: Type the name of the new, 
edited,, file to be created. The name of the output file must be 
different from the name of the input file. If EDIT is being called 
to list the input file, there is no need to create an output file; strike 
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the RETURN key. When EDIT sets up its internal files and is 
ready for a command, it rings the bell on the Teletype. 
For example: 



•R EDIT 
INPUT: WXZOLD. 
OUTPUT J XYZNEV 



(Bell rings at this point.) 



Table 9-16. Symbolic Editor Operations Summary 



Special Characters 



Function 



Carriage Return 
(RETURN Key) 



Back Arrow ( <-) 



Rubout (\) 



Form Feed 
(CTRL/ FORM 
Combination) 

Period (,) 



Slash (/ ) 
Line Feed (4) 



Text Mode — Enter the line in the 
text buffer. 

Command Mode — Execute the com- 
mand. 

Text Mode— Delete from right to 
of text, continue typing on same 
line. 

Command Mode — Cancel com- 
mand. Editor issues a ? and car- 
riage return/ line feed. 

Text Mode — Delete from right to 
left one character for each rubout 
typed. Does not delete past the be- 
ginning of the line. Is not in effect 
during a READ command. 



Com mand — Mode J 
arrow. 



-Same as back 



Text Mode — End of inputs return 
to command mode. 



Command Mode— Current line 
counter used as argument alone or 
in combination with + or — and a 
number (.,.+5L). 

Command Code — Value equal to 
number of last line in buffer. Used 
as argument (/— 5,L/). 

Text Mode— Used in SEARCH 
command to insert a CR/LF com- 
bination into the line being 
searched. 
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Table 9-16 (Confc). Symbolic Editor Operations Summary 



Special Characters 



Function 



Right Angle Bracket (>■) 



Left Angle Bracket (<) 



Equal Sign ( = ) 



Tabulation 
(CTRL/ TAB Key 
Combination) 



Command Mode — List the next 
line (equivalent to .+1L). 

Command Mode — List the previous 
line (equivalent to .— 1L). 

Command Mode — Used in con- 
junction with . and / to obtain their 
value (.=27). 

Text Mode — Produces a tabulation 
which, on output, is interpreted as 
spaces if bit 1 of the switch reg- 
ister is set to 0, or as a tab char- 
acter/ rubout combination if bit 1 
is set to 1. 



Table 9-17. EDIT Command Summary 



Command 



READ 



APPEND 



LIST 



PROCEED 



Format 



R 



L 
nL 
m,nL 
P 

nP 
m,nP 



TERMINATE T 



Meaning 



Read text from the input file and 
append to buffer until a form feed 
is encountered. 

Append incoming text from key- 
board to any already in the buffer 
until a form feed is encountered. 

List the entire buffer. 

List line n. 

List lines through n inclusive. 

Output the contents of the buffer to 
the output file, followed by a form 
feed. 

Output line n, followed by a form 
feed. 

Output lines m through n inclusive 
followed by a form feed. 

Close out the output file and return 
to the Monitor. 
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Table 9-17 (Cont.). EDIT Command Summary 



Command 



Format 



Meaning 



NEXT 



CHANGE 



MOVE 



GET 



SEARCH 



N 





nN 


KILL 


K 


DELETE 


nD 




m,nD 


INSERT 


I 



nl 



nC 



m,nC 



m,n$kM 



G 



nS 
m,nS 



Output the entire buffer and a form 
feed, kill the buffer and read the 
next page. 

Repeat the above sequence n times. 

Kill the buffer (i.e., delete all text 
lines). 

Delete line n of the text. 

Delete lines m through n inclusive. 

Insert before line 1 all the text from 
the keyboard until a form feed is 
entered. 

Insert before line n until a form 
feed is entered. 

Delete line n, replace it with any 
number of lines from the keyboard 
until a form feed is entered. 

Delete lines m through n, replace 
from keyboard as above until form 
feed is entered. 

Move lines m through n inclusive 
to before line k. 

Get and list the next line beginning 
with a tag. 

Search the entire buffer for the 
character specified (but not echoed) 
after the carriage return. Allow 
modification when found. Editor 
outputs a slash (./.) before begin- 
ning a SEARCH. 

Search line n, as above, allow modi- 
fication. 

Search lines m through n inclusive, 
allow modification. 
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Table 9-17 (Cont.). EDIT Command Summary 



Command Format Meaning 



END E Output the contents of the buffer. 

Read any pages remaining in the in- 
put file, outputting them to the 
output file. When everything in the 
input file has been moved to the 
output file, close it out and return 
to the Monitor. E is equivalent to a 
sufficient number of N's followed 
by a T command. 

fC CTRL/C Stop listing and return to Command 

Mode. 



Loader 

LOADER is used to load programs in BIN format from a disk 
file into the user's core area for execution. These files in BIN for- 
mat can be created by PAL-D in the course of an assembly or they 
can be loaded from paper tape using PIP (see the PIP section for 
special instructions on loading BIN format tapes). 

To call LOADER, type: 



.R LOADER 



LOADER responds by asking for INPUT: Respond by entering 
the name of the file or files to be loaded. Although many System 
Library Programs allow multiple input files, the LOADER uses 
this feature to special advantage. Because it loads the files in the 
order they are typed, LOADER can be used to load patches and 
overlays. After it has requested INPUT, LOADER requests OP- 
TION: For normal operation strike the RETURN key; LOADER 
is able to load into any part of core below 7750. If the program 
to be loaded is to be debugged, respond to OPTION: with D. 
This will cause ODT to be loaded along with the input files and 
started. ODT indicates that it is ready by printing a second line 
feed. ODT uses locations 7000 through 7577; and if loaded along 
with a program which uses any of these locations, the result of the 
load is unpredictable. 
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EXAMPLE 1: NORMAL OPERATION 



.R LOADER 

INPUTtMAIN, PATCH1, PATCH2 

OPTION: 

tBS 



EXAMPLE 2: LOAD ODT WITH INPUT FILE 

•R LOADER 
INPUTlPROGl 
OPTION* D 

As seen in the first example, LOADER returns control to 
Monitor when it is finished. The user can then start the program 
by using the Monitor command START. For example, LOADER 
can be used to load and run the short program given as an exam- 
ple in the section on PAL-D. 



•R LOADER 


INPUT: 


BIN2 


OPTION! 


i 

i 


»BS 




•START 


400 


0123456789 


tBS , 





NOTE 

All BIN format files loaded by LOADER 
include a checksum. If LOADER detects a 
checksum error while loading, it prints 
LOAD ERROR and terminates the load. 

Octal Debugging Technique (ODT) 

ODT is a powerful octal debugging tool for testing and modify- 
ing PDP-8 programs in actual machine language. It allows the 
user to control the execution of his program and, where necessary, 
make immediate corrections to the program without the need to 
reassemble. 
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The complete command repertoire of ODT is documented in 
Introduction to Programming 1972, Chapter 5. ODT (on Edu- 
System 50) is the high-core version which resides in locations 
7000 through 7577. The paper-tape output commands of regular 
ODT are not available in EduSystem 50 ODT. To call ODT, the 
user types: 



• LOAD 2 ODTRI 0* 7000 
.START 7000 



If ODT is to be used to debug a program being loaded with 
LOADER, ODT can be loaded and started directly by specifying 
the Debug (D) option to LOADER. 

ODT executes an SRA (Set Restart Address) as part of its ini- 
tialization process. As a result, typing CTRL/C always returns 
control to ODT. If the program being debugged sets up its own 
restart address, typing CTRL/C transfers control to the new 
restart address. It is necessary to type tBS followed by START 
7000 to force control back to ODT. Every time ODT regains 
control, it puts the Teletype in duplex mode. Users debugging 
programs which do not operate in duplex mode, should be aware 
of this fact. 

ODT saves the state of the delimiter mask, when it regains con- 
trol via a breakpoint. The state of this mask is restored on a 
Continue (C) command, but not on a GO (G) command. 



Table 9-18. ODT Command Summary 

Command Meaning 

nnnn/ Open register designated by the octal num- 

ber nnnn. 

/ Reopen latest opened register. 

RETURN Close previously opened register. 

LINE FEED Close register and open the next sequential 

one for modification. 

Up Arrow (|) Close register, take contents of that register 

( SHIFT/ N) as a memory reference and open it. 
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Table 9-18 (Cont.). ODT Command Summary 



Command 



Meaning 



Back Arrow ( «-) 
(SHIFT/ O) 

Illegal Character 



nnnnG 
nnnnB 
B 

A 

C 

nnnnC 



M 



LINE FEED 



LINE FEED 



nnnnW 



Close register open indirectly. 

Current line typed by user is ignored, ODT 
types ?CR/LF. 

Transfer program control to location nnnn. 

Establish a breakpoint at location nnnn. 

Remove the breakpoint. 

Open for modification, the register in which 
the contents of AC were stored when the 
breakpoint was encountered. 

Proceed from a breakpoint. 

Continue from a breakpoint and iterate past 
the breakpoint nnnn times before interrupt- 
ing the user's program at the breakpoint 
location. 

Open the search mask register, initially set 
to 7777. It may be changed by opening the 
search mask register and typing the desired 
value after the value typed by ODT, then 
closing the register. 

Close search mask register and open next 
register immediately following, containing 
the location at which the search begins. It 
may be changed by typing the lower limit 
after the one typed by ODT, then closing 
the register. 

Close lower search register, open next reg- 
ister containing the upper search limit ini- 
tially set to 7000 or 1000 (location of 
ODT) . It may be changed by typing the 
desired upper limit after the one typed by 
ODT and closing the register with a car- 
riage return. 

Search the portion of core as defined by the 
upper and lower limits for the octal value 
nnnn. 
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Catalog (CAT) 

The Monitor ma ; ntains a library of disk files for each user. The 
System Library Program CAT is used to obtain a catalog of the 
contents of this library. For each file, CAT prints the size of the 
file in units of disk segments. The size of a disk segment may vary 
among installations. Generally, it is 256 (decimal) words of disk 
storage. The protection code for the file is also given. (See the 
section on Advanced Monitor Commands for a precise explanation 
of protection codes.) If the program was created by any of the 
System Library Programs, it has a protection code of 12, mean- 
ing that other users can read the file, but only the owner can 
change it. To call CAT, type: 



• R CAT 



The CAT program then prints a listing similar to the one shown 
below and concludes by printing TBS and exiting to the Monitor. 



• R CAT 








DISK FILES 


FOR 


USER 


3,1 3 ON 


NAME SIZE 


PROT 


DATE 


FIE .BIN 


1 


1 7 


3-JUN-«-70 


PROG -FCL 


2 


12 


9-JUN-70 


INTER .BAS 


1 


I 7 


9-JUN-70 


BAS000.TMP 


1 


17 


9-JUN-70 


BAS100.TMP 


1 


1 7 


9-JUN-70 


INT2 .BAC 


1« 


37 


9-JUN-70 


FCLPRG.FCL 


2 


12 


9-JUN-70 


TOTAL DISK 


SEGMENTS: 


9 


TBS 









9-JUN-70 
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System Status (SYSTAT) 

It is frequently useful to know the status of the system as a 
whole; how many users are on-line, where they are, what they 
are doing, etc. The SYSTAT program provides this capability. 
To call SYSTAT, type: 

.SYSTAT 

or 

•R SYSTAT 

SYSTAT responds by printing on the first line: the version of 
the Monitor being run, the time, and the date. SYSTAT then re- 
ports the uptime which is the length of time in hours, minutes, and 
seconds s|nce the system was last put on-line. 

SYSTAT then lists all on-line users. Each user is identified by 
his account number. The job number assigned to him and the 
number of the console he is using are indicated, as is the particular 
System Program he is running. The exact running state of each 
user, whether he is actually running (RUN), typing (KEY) or 
printing (TTY), doing input/output on another system device 
(IG or FIP), or not running (tB), is indicated. The amount of 
computer time used by each user since he logged in is given. 

If more users are on-line than the system has core fields to 
hold them, the fact that the system is swapping is reported. The 
number of free core blocks used internally by the Monitor for 
Teletype buffering and various other purposes is printed. Then 
SYSTAT reports any unavailable devices, i.e., devices which are 
assigned to individual users. The job to which they are attached 
and their status (AS if they are assigned but not active, AS+INIT 
if they are assigned and active) is also indicated. Finally, the 
number of available segments of disk storage is reported. 
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A sample SYSTAT listing is shown below. SYSTAT terminates 
by printing TBS and exiting to the Monitor. 



.R SYSTAT 

STATUS OF TSS/8.21 DEC PDP-8 #1 AT 16:32:52 ON 2 JUN 70 

UPTIME 08:55:52 



JOE 


WHO 


WHERE 


WHAT 


STATE 


RUNTIME 


1 
2 
3 
4 


10*10 
3*13 
0*10 
0*10 


K00 
K15 
Kll 
K22 


COPY 
SYSTAT 
BASIC 
BASIC 


tB 
RUN 
KEY 
KEY 


00:00:06 
00:00:05 
00:00:02 
00:00:01 


AVAILABLE CORE 


0K FREE 


C0RE=222 






BUSY DEVICES 










DEVICE 


JOB 


WHY 








D0 
Dl 
D2 
D3 
D6 


1 
1 
1 
1 
3 


AS+INT 

AS+INT 

AS 

AS 

AS+INT 









119 FREE DISK SEGMENTS 



tBS 
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PROGRAMS FOR PAPER TAPE AND DECTAPE CONTROL 
PIP (Peripheral Interchange Program) 

All System Library programs discussed in previous sections 
operate only on files which are on the disk. Disk is a convenient 
storage medium for many files; however, it may be more useful to 
keep some programs on paper tape. PIP provides a convenient 
means of transferring files between disk and paper tape, for those 
users who wish to preserve copies of their files off-line. 



PIP CONVENTIONS 

PIP may be considered a link between disk file storage and 
paper-tape devices. To punch a desired file, PIP obtains that file 
from the disk and punches it on paper tape. Similarly, to load a 
paper tape, PIP inputs the tape from the reader, then outputs it 
to a disk file. 

The way files are named is important to PIP. Files on disk are 
always named. Paper tapes, on the other hand, have no names as 
far as the system is concerned (although the user can label the 
physical tape in any manner he chooses). Paper tapes never have 
file names; therefore, PIP uses the absence of a file name to indi- 
cate a paper tape (absence of a file name is indicated by striking 
the RETURN key). 

The way in which INPUT: and OUTPUT: is indicated provides 
the means for determining the direction of file transfer. If PIP 
is to get its input from the disk, the input is a file name; if the 
input is from a paper tape, no file name is given. Similarly, if PIP 
is to output to the disk, the file name is indicated; if output is to 
paper tape, no name is given. To call PIP, type: 



.R .PIP 



PAPER TAPE TO DISK TRANSFERS 

^ „,wv« « P a pC i tape 10 qisk, strike the RETURN key when 
PIP requests INPUT: Since PIP must output to the disk, respond 
to OUTPUT: by typing a file name. When PIP requests OPTION: 

9-157 



type T to indicate that the paper tape is being loaded from the 
Teletype reader. For example : 

.p. pip 

INPUT: 

OUTPUT: FILE1 
OPTION: T 

The paper tape in the low-speed reader is read and stored in the 
system as FILE 1. 

DISK TO PAPER TAPE TRANSFERS 

To move a disk file onto paper tape, the use of file names is 
reversed since PIP must input a disk file and output it to paper 
tape. The option remains the same. For example: 

.R PIP 

INPUT:FILE1 

OUTPUT: 

OPTTON:T 

The contents of FILE1 are then punched at the Teletype. 

HIGH-SPEED READER/PUNCH ASSIGNMENTS 

PIP can also be used with high-speed paper-tape devices. The 
format of the INPUT: and OUTPUT: responses is the same. 
However, for the high-speed reader, the option is R and for the 
punch it is P. 

Since the reader and punch are assignable devices, they are not 
always available (other users may have one or both assigned). 
Therefore, whenever PIP is given a command which utilizes one of 
these devices, it checks to make sure that the device is available. 
If it is, PIP automatically assigns it (thus, it is not necessary to 
assign the device before running PIP). If the device is unavail- 
able, PIP informs the user. For example: 

INPUT: 

OUTPUT: ABGD 
OPTION:R 

PIP reads the paper tape in the high-speed reader and stores it in 
the system as ABCD. 
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INPUTlABCD 

OUTPUT: 

OPTIONiP 



PIP punches out file ABCD on the high-speed punch. 

INPUT:ABCD 

OUTPUT: 

OPTION:P 

DEVICE NOT AVAILABLE 

The punch is assigned to another user, or there is no punch on the 
EduSystem 50, or there is one but it is turned off. 

BIN FORMAT FILE TRANSFERS 

The examples above work for all ASCII file transfers (except 
BASIC programs, explained below.) They are also valid for punch- 
ing BIN files with either high- or low-speed devices. Loading BIN 
format tapes, however, is a special case. 

BIN format tapes must end with trailer codes. The easiest way 
to ensure that they do is to cut off the tape near the end of the 
trailer code. Failure to do this (or cutting it off very unevenly) 
does not prevent PIP from loading tape into the disk file. How- 
ever, later attempts to load the file with LOADER will result in 
load errors. 

NOTE 
Some installations do not allow any BIN 
format tapes to be loaded from the low- 
speed reader. 

MOVING DISK FILES 

PIP can be used to move the contents of one file into another. 
This is often useful in copying a file from another user's library 
(providing the file is not protected) into your own library. To 
copy from disk file to disk file, specify a file name for both input 
and output. Reply to OPTION: by striking the RETURN key. 
For example : 

INPUT: FOCAL '?. 
OUTPUT :F0GALX 
OPTION: 

PIP gets FOCAL from account number 2's library and moves it 
into the file FOCALX. 
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DELETING DISK FILES 

One of the principal reasons for punching files on paper tape 
is to free disk space. Once punched, the disk file is no longer 
needed. PIP offers a convenient means of deleting files, the Delete 
option: 



INPUTS ABC D 
OUTPUT : 
OPT I ON: D 



PIP deletes file ABCD, provided that the file is not protected 
against being changed. 

BASIC FILE TRANSFERS 

BASIC stores its programs in a unique file format. Therefore, 
it is not possible to load or punch BASIC files in the usual way. 
To provide a convenient means of handling BASIC programs, the 
B option is available in PIP. The B option is used for both reading 
and punching BASIC programs. The responses to INPUT: and 
OUTPUT: indicate the direction of the transfer; the high-speed 
reader or punch is always assumed for the B option. (To read 
or punch tapes at low-speed, use BASIC itself.) 

PIP assumes that any BASIC tapes it loads are clean and error- 
free. Only tapes actually created by BASIC should be loaded with 
PIP. Tapes created off-line, and thus liable to contain errors, 
should be loaded low-speed by BASIC itself with the TAPE 
command. , 



SAVE FORMAT FILE TRANSFERS 

Another special file format is that of the SAVE files, those pro- 
grams directly executed by EduSystem 50. (The System Library 
Programs are examples of SAVE format files.) PIP provides the 
S option, to allow these files to be punched on paper tape. SAVE 
format tapes make sense only to PIP. They cannot be input to 
any other System Program. 

The responses to INPUT: and OUTPUT: indicate the direction 
of the transfer; the high-speed reader or punch is always assumed 
for the S option. 
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NOTE 

SAVE format tapes include a checksum. 
If PIP detects an incorrect read, it prints 
LOAD ERROR, and terminates the load, 
repeating the request for input. 



Table 9-19. PIP Option Summary 



Option Explanation 



T Transfer a file between the disk and the Teletype 

reader or punch. The response to INPUT: and OUT- 
PUT: indicates the direction of the transfer. 

R Read a tape from the high-speed reader and store it 

as a disk file. 

P Punch the contents of a disk file on the high-speed 

punch. 

D Delete the file specified for input. 

B Transfer a BASIC program file between the disk and 

the high-speed reader or punch. The response to in- 
put and output indicates the direction of the transfer. 

S Transfer a SAVE format file between the disk and 

the high-speed reader or punch. The response to 
INPUT: and OUTPUT: indicates the direction of the 
transfer. 



COPY Program 

Many EduSystem 50 installations include one or more DEC- 
tapes. For these installations, DECtapc provides a convenient 
and inexpensive means of file storage. The COPY program is used 
to transfer files between disk and DECtapc. 

USING AND CALLING COPY 

COPY is the intermediary between disk and DECtapc. To write 
a disk file out to DECtapc, COPY inputs the file from the disk, 
then outputs it to the DECtape. To bring a DECtape file onto 
the disk, COPY inputs from the DECtapc, then outputs to the 
disk. 
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Files kept on DECtape have file names just as they do on the 
disk. To avoid confusion, the user must tell COPY where the file 
is to be found. If it is on DECtape, the DECtape designation and 
the number of the DECtape unit must preface the file name. The 
DECtape number is always separated from the file name by a 
colon. Thus D1:FILE1 means the file name FILE1 on the DEC- 
tape which is currently mounted on DECtape unit number one. 
The number of available tape units varies among installations. 
The maximum is eight (numbered 0-7). If a file name is not 
prefaced by a DECtape number, the file is assumed to be on the 
system disk. 

Files stored on DECtape do not have protection codes in the 
sense that disk files do. They are, however, protected against 
unauthorized access. When a DECtape is not mounted, it is not 
available to any user. When it is mounted, it is available only to 
the user who has assigned the DECtape unit on which it is mounted. 
Even then it can not be altered unless the DECtape unit is set to 
WRITE ENABLE. Users should be sure to assign a DECtape 
unit before mounting their tape, and dismount the tape before 
releasing the device. Normally, the DECtape unit to be used 
should be assigned before calling COPY. 

To call COPY, type: 

.R COPY 

COPY responds by asking which option the user wishes to em- 
ploy. The COPY options are discussed below and summarized 
in Table 9-20. 

LOADING FILES FROM DECTAPE 

To load a file onto the disk from DECtape, use the COPY op- 
tion. When COPY requests OPTION, respond with COPY, or C, 
or strike the RETURN key (the COPY option is assumed). 
When COPY requests INPUT, type the number of the DECtape 
unit on which the file can be found (DO, Dl, D2, D3, D4, D5, D6, 
or D7) followed by a colon and the name of the file on the 
DECtape. When COPY requests OUTPUT, type and enter the 
name to be given to the output file on the disk. COPY then 
moves the DECtape file onto the disk. '(When using COPY, it is 
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not mandatory to insert a space between the device designator 
and the device number.) For example: 

OPTION- COPY 
INPUT - D4sPQR 
OUTPUT - PQR 

If for any reason, COPY cannot find the DECtape file speci- 
fied for input (the specified DECtape is unavailable or nonexistent, 
or the file name does not exist on that DECtape), COPY prints 
a ? and repeats the request for input. If the disk file specified 
for output already exists, COPY prints a ? and repeats the request 
for output. COPY does not overwrite an existing file. For example: 



OPTION - C 
INPUT - D9:PQR 
? INPUT - D4:PQRiS 
? INPUT - D4:PQR 
OUTPUT - FILE1 
70UTPUT - PQR 



SAVING DISK FILES ON DECTAPE 

Saving a disk file on DECtape is very similar to loading one. 
The option is still COPY. For input, respond with the name of the 
file on the disk. For output, type the DECtape unit number, colon, 
and the name to be given to this file. For example: 

OPTION' - C 
INPUT - ABCD 
OUTPUT - D4 5ABCD 

If COPY cannot find the file on the disk, or if it is protected, 
COPY prints a ? and repeats the request for input. If COPY can- 
not create the desired DECtape file (the specified DECtape does 
not exist or is unavailable, or it is not WRITE ENABLED, or a 
file by that name already exists on the tape) COPY prints a ? 
and repeats the request for output. 

LISTING DIRECTORIES 

COPY can be used to list the directory of a device. To list a 
directory, respond to OPTION by typing LIST, or just L. COPY 
then asks which device directory it is to list. To list a DECtape 
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directory, respond with the device name (D0,...,D7). Do not 
follow it by a colon. For example: 

•R COPY 

OPTION- LIST 
INPUT- D 1 

1372. FREE BLOCKS 

NAME SIZE DATE 

BASIC -SAV 66 9-MAR-70 

FACTAL.BAS 10 2-MAR-70 

CONVER.BAC- 6 1 -MAR- 70 

PALD .SAV 32 31 -MAR- 70 

The unit of DECtape storage is the block, which is 128 (deci- 
mal) words. Because the unit of disk storage, the segment, is 
generally 256 words, a file occupies twice as many blocks of 
DECtape storage as it did segments on the disk. 

COPY can also be used to list the user's disk directory. Use the 
LIST option, but respond to DEVICE by simply striking the 
RETURN key. The directory listing is similar to the listing ob- 
tained by running the CAT program. 

DELETING FILES 

COPY can be used to delete files, either on the disk or on a 
selected DECtape. To delete a file, respond to OPTION by typing 
DELETE, or just D. Respond to INPUT by typing the name of 
the file to be deleted. If the file is on a DECtape, preface the 
file name with the DECtape unit number and a colon. For example: 



OPTION - DELETE 
INPUT - D4:ABCD 



If COPY cannot find the file to be deleted, or having found it, 
cannot delete it (it is a protected disk file or a DECtape file on 
a unit which is not WRITE ENABLED), COPY prints a ? and 
repeats the request for INPUT. 

DELETING ALL EXISTING FILES ON A DEVICE 

COPY can be used to delete all existing files on a device. To do 
so, respond to OPTION by typing ZERO, or just Z. When COPY 
requests INPUT respond with the name of the device. To delete 
all files on the disk, strike the RETURN key. The ZERO option 
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should also be used to format a blank DECtape before attempting 
to copy any files onto it. For example: 



OPTION 


- ZERO 


INPUT - 


D4 


OP T I ON 


- Z 


INPUT - 





COPY cannot delete files from a DECtape unless it is WRITE 
ENABLED. -It cannot delete disk files which are write protected. 

Table 9-20. COPY Option Summary 



Explanation 

Transfer a file between disk and DECtape. 
List a directory. 
Delete a file. 
Delete all files. 



EXAMPLE OF COPY USAGE 





Abbre- 


Option 


viation 


LIST 


. C 


COPY 


L 


DELETE 


D 


ZERO 


Z 



•ASSIGN 


D 5 


D 5 ASSIGNED 


•R COPY 




OPTION - 


ZERO 


DEVICE - 


D5 


OPTION - 


LIST 


DEVICE - 


D5 



1462. FREE BLOCKS 
NAME SIZE DATE 

OPTION - LIST 
DEVICE - 

DISK FILES FOR USER 54,40 ON 27-MAY-70 

NAME SIZE PROT DATE 
SOLVE .BAS 1 12 27-MAY-70 

TOTAL DISK "SEGMENTS: 1 
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OPTION - COPY 
INPUT - SOLVE 
OUTPUT - D5: SOLVE 

OPTION - DELETE 
INPUT - SOLVE 

OPTION - LIST 
DEVICE - D5 

1 460 . FREE BLOCKS 

NAME SIZE DATE 
SOLVE S 2 7-MAY-70 

OPTION- LIST 
DEVICE- 
DISK FILES FOR USER 54,40 ON 27-MAY-70'- 
NAME SIZE PROT DATE 

TOTAL DISK SEGMENTS: 

OPTION- COPY 
INPUT- D5: SOLVE 
OUTPUT- ABCD 

OPTION- LIST 
DEVICE- 
DISK FILES FOR USER 54,40 ON 27-MAY-70 

NAME SIZE PROT DATE 

ABCD 1 12 27-MAY-70 

TOTAL DISK SEGMENTS: 1 

OPTION- RENAME 

INPUT- ABCD 

OUTPUT- FIE. BIN <17> 

OPTION- LIST 
DEVICE- 

DISK FILES FOR USER 54,40 ON 27-MAY-70. 

NAME SIZE PROT DATE 
FIE .BIN 1 17 27-MAY-70 

OPTION- tBS 
•RELEASE D 5 

9-166 



ADVANCED MONITOR COMMANDS 
Introduction 

The fundamental Monitor commands described previously are 
those needed to utilize existing System Library Programs. The 
EduSystem 50 Monitor also provides powerful commands for 
users who wish to create their own library programs. 

To use the System Library Programs described previously, it was 
not necessary to be familiar with the actual machine that runs 
them, the PDP-8/E. To create new library programs for Edu- 
System 50, this is necessary because they are written in the PDP-8 
assembly language. The user codes his programs for a 4K PDP-8, 
subject to the time-sharing conventions discussed in this section. 
The programs are created with EDIT, then assembled by PAL-D 
and loaded by LOADER. Only at this point are the programs 
able to be run by EduSystem 50. In the course of this program 
development, the same program exists in many formats. 

The source program is a disk file containing ASCII characters 
in an Editor format. PAL-D reads the file and translates it into 
a second file, the assembled program in BIN format. Neither of 
these files is capable of being executed directly by EduSystem 50. 
The BIN format tape must be loaded into core by LOADER be- 
fore it can actually be executed. 

At this point it is possible to save the program in a file format 
that is directly executable by EduSystem 50. Such a file, called 
a SAVE format file, contains an image of the user's core area 
after the program has been loaded by LOADER. These SAVE 
format files differ from all the files which are created by System 
Library Programs and cannot be executed directly by EduSystem 
50. Thus, it is not possible to save a BASIC program (e.g., FILE1 
while running BASIC), then return to Monitor, type R FILE1, 
and get meaningful results. The program in FILE1 must be ex- 
ecuted under control of the BASIC language processor. Only 
SAVE format files can be called into execution directly by the R 
command. (All System Library Programs are stored in SAVE 
format and can be run with the R command.) 
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NOTE 

In the following examples, Sn, Cn, and Dn 
are used to stand for alphanumeric strings 
(such as file names), octal numbers, and 
decimal numbers, respectively. 

A number of Monitor command conventions are available to 
make the commands easier to use. First, more than one com- 
mand may be typed on a line. Individual commands are separated 
by a semi-colon (;). Second, only enough characters of a com- 
mand to uniquely specify it need be typed. Thus, DEPOSIT can 
be abbreviated DE or DEP. 

•LCAD FILEi; DEP 20 7000; ST 200 

is exactly equivalent to : 

.LCAD FILE1 
.DEPOSIT 20 7000 
.START 200 

These conventions are available for the elementary Monitor 
commands as well. They are, however, especially convenient for 
the advanced commands. 

Control of User Programs 

Once a PAL-D program has been loaded by LOADER, several 
Monitor commands are available for controlling its execution. 
These commands are shown in Table 9-21. 

It is possible to give these utility commands while a user pro- 
gram is running. The CTRL/B character (TB) gets the attention 
of the Monitor without stopping program execution. (TB followed 
by the S command stops the program. ) TB can be used together 
with the WHERE command to follow program execution. After 
executing these commands, Monitor does not put the Teletype 
back into Monitor mode. 
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Table 9-21. Monitor Program Control Commands 



Command 



Explanation 



START CI 



START 



DEPOSIT CI C2...Cn 



EXAMINE CI 
EXAMINE CI Dl 

WHERE 



Start execution of a user program at 
location CI. When a program is 
started, keyboard input is no longer 
interpreted as commands to Monitor. 
Input characters are passed to the 
running program. START CI clears 
the user's AC and link. 

Restart execution of a user program 
where it was interrupted (either by ex- 
ecution of an HLT or by TBS typed at 
the keyboard). When the START 
command is given, the program's state 
is restored. 

Deposit the octal values C2 to Cn in 
the locations starting at CI. DE- 
POSIT is used to make small octal 
modifications to a user program. No 
more than 10 decimal locations can 
be modified by a single DEPOSIT 
instruction. 

Print the octal contents of location CI. 

Print the contents of Dl locations 
starting at CI. 

Print the present status of the user 
program. The user's AC, PC, and 
LINK are printed. If the processor 
includes the extended arithmetic ele- 
ment, two additional registers, the SC 
and MQ are printed. 



Defining Disk Files 

The Monitor allows the user to save core images of his pro- 
gram on the disk for future use. However, before saving such a 
core image, the user must define a disk file in which to save it. 

Disk files, like the user's core, are made up of 12-bit words. 
Unlike the user's core, which is always 4K in size, a file can be 
any size. The unit of disk file storage is the segment; in most in- 
stallations a segment is 256 (decimal) words but can be from 
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128 to 1024 words long. Files are at least one segment long 
when created and grow by appending additional segments to the 
end of the file. In defining a file, the user first creates it, then 
extends it to whatever length he needs. To have a whole 4K image 
on a system with a segment size of 256 (decimal) words, a 16 
segment file is required. If only part of the contents of the user's 
core is to be saved, a correspondingly smaller file can be used. 
A file can be created at any time. However, to modify or rede- 
fine it in any way, the file must be open. Up to four files can be 
open for a user simultaneously. Opening a file connects it to an 
internal open file number (0, 1, 2, or 3). Once a file is open, 
it is referenced by this internal file number rather than by its file 
name. 



CREATING A DISK FILE 

The CREATE command defines an area of disk space and 
associates it with the name given in the command line. 

The file name can be one to six alphanumeric characters of 
which the first must be a letter. Creating a file deletes any exist- 
ing file of the same name, unless that file is write protected. When 
created, files are always one segment in size. A new file is arbi- 
trarily assigned a protection code of 12, meaning that other users 
may access it but only the owner may change it. Until it has been 
written, the contents of a newly defined file are undefined. 

OPENING AND CLOSING A FILE 

To use a file, it must first be opened with the OPEN command. 
A file can be opened on any of four internal file numbers: 0, 1, 
2, or 3. A user can have up to four files open at a time. If a file 
is open on an internal file number for which a file is already open, 
that file is first closed. For example: 

.CREATE AR 
•OPF^ 1 AR 

AB is now an open file and can be referenced as file 1 . 

An open file can be closed at any time by means of the CLOSE 
command. Once closed, a file cannot be accessed in any way until 
it is reopened. It is possible to close more than one file with a 
single command. For example: 
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•CLOSE 12 3 

EXTENDING, REDUCING, AND RENAMING 
A DISK FILE 

When created, a file is one segment long. If a larger file is 
needed, the original file can be extended. For example, the com- 
mand: 

..EXTEND CI Dl 

extends the file presently open on internal file CI by Dl segments. 
Extending a file adds one or more segments to the end of that file. 
The contents of the old part of the file are not changed. Until 
written, the contents of the newly added segments are unspecified. 
An existing file may be reduced in size by means of the REDUCE 
command. For example, the command: 

..REDUCE CI Dl 

reduces the file presently open on internal file CI by Dl seg- 
ments. Reducing a file deletes the number of segments indicated 
from the end of the file. The contents of remaining segments of 
the file are unchanged. If a file is reduced to zero segments, or if 
Dl is greater than the number of segments in the file, it is deleted 
entirely. An example of the creation and deletion of a 4K file: 

•CREATE FOURK 

•OPEN 3 FOURK 

•EXTEND 3 15 

•REDUCE 3 16 

Existing opened files can be renamed. Renaming a file does not 
change its contents in any way. For example, the command: 

•RENAME Cl SI 

renames as SI the file open on internal file number Cl. 

PROTECTION CODES 

The user can protect his files against unauthorized access. He 
can also specify the extent of access certain other users can have 
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to his files. For example, a user's associates can be permitted to 
look at the data of certain files but not permitted to alter that data. 
When it is created, a file is assigned a protection code of 12. This 
protection code is defined below and can be changed (see Storage 
Allocation), but only by the owner of that file. For example, the 
command: 

.PROTECT CI C2 

gives the protection code C2 to the file open on internal file num- 
ber CI. 

The protection code is actually a 5-bit mask. Each bit specifies 
a unique level of protection. (See the PROTECT IOT command 
for the meaning of each bit.) 

File protection masks (C2) are assigned as follows: 

1 Read protect against users whose project number differs 
from owner's. 

2 Write protect against users whose project number differs 
from owner's. 

4 Read protect against users whose project number is same 

as owner's. 
10 Write protect against users whose project number is same 

as owner's. 
20 Write protect against owner. To change the program the 
owner must change the protect code. 

Protection codes are determined as the unique sum of any of 
the above codes. Some of the more common protection codes are 
as follows: 

Command Explanation 

PROTECT 1 12 Allow other users to access the 

file but not change it. 

PROTECT 117 Allow only the file owner to read 

the file. He can also change it. 

PROTECT 1 37 Allow only the file owner to read 

the file. He cannot, however, 
change it. (To change it, he 
must first change the protection.) 
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Code Explanation 

.PROTECT 1 Allow other users to access the 

file and change it. 

Finally/ the user can ask what file is open on a given internal 
file number by means of the F (File information) command. For 
example, the command: 



• f ci 

prints the following information about the file presently open on 
an internal file CI: 

a. Account number of file owner. 

b. Name of file. 

c. Protection code. 

d. Size of file in segments (decimal ) . 

For example: 



.F 1 

0010 TYPE 0012 2 



ERROR CONDITIONS 

There are a number of error conditions which prevent the ex- 
ecution of the file definition commands (as previously described). 
One of the following error messages is printed by Monitor if an 
error condition is detected : 

Message Explanation 

FILE NOT OPEN An EXTEND, REDUCE, PRO- 
TECT, or RENAME command 
has been issued for an internal 
file number for which no file is 
open. 

PROTECTION An attempt has been made to 

VIOLATION change a file which is write pro- 

tected against the user. 
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Message 
FILE IN USE 



DIRECTORY 
FULL 



Explanation 

An EXTEND, REDUCE, PRO- 
TECT, or RENAME command 
has been issued for a file which 
is in use elsewhere by another 
user. Because changing a file 
which is being used (i.e., has 
been opened) could disrupt an- 
other user's, work, under these 
conditions such a change is pro- 
hibited. 

A CREATE command has been 
issued, but the user's directory is 
full. He can delete any of his 
files to make room for the new 
file. 

The user has attemped to OPEN 
a nonexistent file. 

The user has attempted to extend 
a file, but the system has run out 
of disk segments. The number 
of segments requested, but not 
available, is printed. 

Saving and Restoring User Programs 

Once a file has been defined, the user can save all or any part 
of his user core in the file. Files and user core are addressed in 
the same way, by 12-bit words. The user can transfer his file into 
any part of core. 

The SAVE command requires one to five parameters: The 
name of the file to be written into must always be given. If the 
file is not in the user's own library, the appropriate account 
number is entered before the file name. (Writing into a file owned 
by another user is subject to file protection.) In either case, the 



FILE NOT 
FOUND 

FAILED BY n 
SEGMENTS 



9-174 



parameters are separated by spaces. The SAVE command writes 
the indicated section of core out into the indicated file. 

If no parameters follow the file name, Monitor starts at loca- 
tion zero of the user's core and saves it in location zero of the 
disk file. It continues to write core locations into the disk file until: 
(a) it has written the whole 4K or (b) it has filled the file. Either 
condition completes the SAVE. 

The user can further define his SAVE command by indicating 
parts of core to be saved in specific parts of the disk file. He does 
this by typing one to three parameters following the file name. The 
first parameter following the file name indicates a specific disk file 
address at which to begin writing. The second parameter following 
the file name indicates a specific core address at which to ter- 
minate the transfer. If only the first two parameters are typed, the 
transfer terminates when either the end of core or the end of file 
is reached. 



Command 

SAVE SI 
SAVE CI SI 



Explanation 

Assuming that a disk file SI 
exists, and that it is not write pro- 
tected, the contents of core are 
saved in SI. In the first case, SI is 
assumed to be in the library of the 
user giving the command. In the 
second case, it is assumed to be in 
the library of the user whose ac- 
count number is CI. 

Locations C3 to C4 (inclusive) 
are saved in file SI starting at disk 
file location C2. SI is assumed to 
be in the user's own library. If SI 
is preceded by the parameter CI, 
it is assumed to be in the library 
of the user whose account number 
is CI. 

Once a core image has been saved in a disk file, it can be re- 
stored to core by means of the LOAD command. It should be 
noted that the Monitor command LOAD is very different from 
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SAVE CI C2 C3 C4 



the System Library Program LOADER. LOADER loads a BIN 
format file (created by PAL-D) into the user's core. LOAD loads 
a SAVE format file (created by a previous SAVE command) into 
core. 

The LOAD command requires from one to five parameters. The 
name of the file to be loaded must always be given. If the file is in 
the user's own library, this file name is typed after the SAVE 
command itself. If it is in another user's library, his account num- 
ber is entered before the file name. (Reading another user's file 
is subject to file protection.) In either case, the parameters are 
separated by spaces. 



LOAD 



LOAD SI 
LOAD CI SI 



Command Explanation 

Read the indicated section of a 
disk file into the indicated section 
of core. 

Assuming that a disk file SI exists, 
and that it is not read protected, 
the contents of the file SI are 
loaded into core. In the first case 
SI is assumed to be in the library 
of the user giving the command. 
In the second case, it is assumed 
to be in the library of the user 
whose account number is Dl. 

The user can further define his LOAD command by using the 
same optional parameters discussed in the section on the SAVE 
command. 



Command 
LOAD SI C2 C3 C4 



LOADNEWF5 10 17 



Explanation 

Locations C3 to C4 (inclusive) are 
loaded from file SI starting at file 
location C2. 

Words 5 to 14 (inclusive) of the file 
named NEWF. are loaded into loca- 
tions 10 to 17 of the user's core. 
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It is not necessary to open a file before using it in a LOAD or 
SAVE command. Both commands automatically open the spec- 
ified file on internal file number 3 before performing the transfer. 
After completion of the command, the file remains open on file 
number 3. 

A special macro-command, RUN, exists to allow a program to 
be loaded and started all in one command. 



Command 

RUN SI 
RUN CI SI 



Explanation 

Load file SI into core from the 
disk and start execution at" loca- 
tion 0. 

In the first example, file SI is as- 
sumed to be in the user's own 
library. In the second, it is as- 
sumed to be in the library of the 
user whose account number is CI. 
RUN SI is exactly equivalent to 
LOAD SI; START 0. RUN CI 
SI is exactly equivalent to LOAD 
CI SI; START 0. 



The R command (see the section EduSystem 50 Monitor) is a 
special case of the RUN command. For example, the command: 



• r si 



loads file SI from the System Library (account number 2) and 
starts at location 0. R SI is exactly equivalent to RUN 2 SI. 

Utility Commands 

The Monitor provides a number of special purpose commands 
to aid in program development and use. The Monitor utility com- 
mands are summarized in Table 9-22. 
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Table 9-22. Monitor Utility Commands 



Command 



USER 

USER CI 
SWITCH CI 



Explanation 



Print the number of the job connected with this 
user and the console number of the job. 

Print the console numbers of job CI. 

Set the user's switch register to CI. Monitor 
maintains a switch register for each user. When 
his program executes on OSR (OR the switch 
register into the AC) this value is the one which 
is loaded. 



BREAK 



BREAK CI 



DUPLEX 



UNDUPLEX 



RESTART CI 



VERSION 



Print the current value of the user's delimiter 
mask. 

Set the user's delimiter mask to CI. (The use 
of the delimiter mask is discussed in the chapter 
on assembly language programming. 

Place the user's Teletype in duplex mode. All 
characters typed at the keyboard are automati- 
cally printed as they are entered. 

9 

Take the user's Teletype out of duplex mode. 
Input characters are received by the Monitor 
and by the user program without their being 
printed at the console. 

Set the user program restart address to CI. If 
CTRL/C is typed at the keyboard, Monitor 
forces a jump to location CI in the user's pro- 
gram. 

Print the version of the Monitor being used. 
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WRITING ASSEMBLY LANGUAGE PROGRAMS 

Introduction 

In addition to the higher-level programming languages available 
in the EduSystem 50 library, the user can also code and run pro- 
grams written in the PDP-8 assembly language, PAL-D (Program 
Assembly Language). These programs are prepared with EDIT, 
assembled with PAL-D, then loaded with LOADER. For those 
users unfamiliar with assembly language programs, Introduction to 
Programming 1972 is a useful guide. 

A user can program EduSystem 50 just as he would any other 
4K PDP-8. (Assembly language programs must fit in 4K of core.) 
All memory reference instructions (AND, TAD, ISZ, DCA, JMS, 
and JMP) function as on a stand-alone PDP-8. All operate instruc- 
tions (instruction code 7) also function as on a regular PDP-8 
(except that microcoding HLT or OSR with any other operate 
instruction but CLA gives unpredictable results). 

The major difference between EduSystem 50 programming and 
regular PDP-8 programming is in the IOT (input/output transfer) 
instructions. Some instructions which are valid on stand-alone 
PDP-8s, such as CDF, GIF, ION, IOF are considered illegal in- 
structions under timesharing. There are a great many new IOTs 
within EduSystem 50 that are not valid on a regular PDP-8. Fi- 
nally, there are IOTs which operate on EduSystem 50 in the same 
manner as on stand-alone PDP-8s. (Table 9-24 is a summary of 
EduSystem 50 IOT Instructions.) 

The way EduSystem 50 actually executes an IOT instruction is 
also different. Non-IOT instructions (except HLT and OSR) are 
executed by the hardware, while IOTs (and HLT and OSR) are 
executed, by the EduSystem 50 Monitor. 

In general, EduSystem 50 provides the programming capabilities 
of a 4K PDP-8 and allows programs of considerably greater com- 
plexity to be run within the constraints of each user's 4K of core. 
System Library Programs, all of which were written in assembly 
language and make use of the EduSystem 50 IOTs dealt with be- 
low, are examples of programs which can be run on EduSystem 50. 
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Console I/O 

User programs handle console (Teletype) I/O in almost the 
same way as stand-alone PDP-8. programs. Trie KRB instruction 
is used to input a character, the TLS instruction to output a char- 
acter. The KSF and TSF (followed by JMP.-l) can be used but 
are not needed. Monitor handles all timing problems whether these 
skip IOTs are present or not. 

EduSystem 50 differs from the stand-alone PDP-8 in that under 
EduSystem 50 the user program interacts with multi-character in- 
put and output buffers (maintained by Monitor) rather than with 
single character registers. Depending on the state of the system, 
these buffers may have one, many, or no characters in them. During 
normal program execution, this fact is of no consequence. User 
programs still send and receive characters one at a time. There are 
times, however, when it is useful to clear out any and all characters 
in the buffers; a special IOT exists for this purpose (SBC). 

On a stand-alone system, characters are input as soon as they 
are typed, whether they are of immediate interest or not. Usually, 
these characters are stored by the program until a terminating (or 
delimiting) character is found. At this time, the whole line of char- 
acters is processed. On a swapping, time-sharing system such as 
EduSystem 50, this mode of operation is wasteful. It is far more 
efficient to allow input characters to accumulate in the Monitor 
input buffer until a delimiter is found. There is an IOT to specify 
which characters are to be considered delimiters (KSB). 

EduSystem 50 also allows programs to input and output strings 
of characters. The read string (KSR) and send string (SAS) in- 
structions provide a convenient and efficient means of doing lengthy 
transfers. 

AH keyboard input uses full-duplexed hardware; there is no 
wired connection between the keyboard and printer (i.e., characters 
are not printed on the console as typed). Input characters are 
echoed to the console under program control rather than by hard- 
ware. Because input characters are allowed to accumulate in buffers 
before being passed to the user program, it is important to have 
Monitor perform the echoing rather than user programs. There is 
an IOT (DUP) to set up this automatic echoing as well as an IOT 
(UND) to inhibit echoing for such operations as reading tapes. 



9-180 



Read Keyboard Buffer (KRB) ' Octal Code: 6036 

Operation: Read the next input character into bits 4-1 1 of the AC. 

Loa d Teleprinter Sequence (TLS) Octal Code : 6046 

Operation: The ASCII character in AC bits 4-11 is printed on the 

user's console. 

Skip on Keyboard Flag (KSF) Octal Code: 6031 

Operation: The next instruction is skipped if there is a delimiter 

character in the user's input buffer. 

Read Keyboard String (KSR) Octal Code: 6030 

Operation: Execution of this instruction initiates a transfer of one 
or more characters from the user's keyboard to a designated core 
area. Before executing KSR, load the AC with the address of a 
two-word block, where: 

Word 1 : negative of the number of characters to be trans- 
ferred. 
' Word 2: address of the core area into which characters are to 
be placed minus one. 

The transfer is terminated when either: 

a the indicated number of characters have been input or 
b. a delimiter is seen. At the end of the transfer, the word count 
and core address are updated and the AC is cleared. 
Send A String (SAS) Octal Code: 6040 

Operation: Before executing an SAS, load the AC with the address 
of a two-word block, where: 

Word 1 : contains the negative of the number of characters to 
be sent. 

Word 2: contains the address -1 of the first word of the string. 
The characters are stored one per word right justified starting at 
the address specified by word 2. Upon execution of SAS, the system 
takes only as many characters as will fit in the output buffer. It 
then makes the appropriate adjustment to word 2 to indicate a new 
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starting address and to word 1 to indicate the reduced character 
count; it returns to the instruction following the SAS. If the char- 
acter count is reduced to zero, the instruction following SAS is 
skipped. The instruction following the SAS should contain a JMP 
-2 to continue the block transfer of Teletype characters The 
AC is clearly by SAS. 

Set Keyboard Break (KSB) Octal Code: 6400 

Operation: Rather than activate a user's program to receive each 
character as it is typed, EduSystem 50 accumulates input charac- 
ters until a certain character, or characters, is seen. To tell the 
Monitor which characters to look for (these characters are referred 
to as delimiters), load the AC with a 12-bit mask before executing 
a KSB. For each bit in the mask which is set, Monitor considers 
the corresponding character or characters to be delimiters. 

Bit Specifies 






= check rest of mask 

1 = any character is break. 




1 


301-332 (all letters) 




2 


260.271 (all numbers) 




3 


211 (Horizontal tab) 




4 


212-215 (line feed, vertical tab, form feed. 




RETURN) 




5 


241-273 (!"#$%&'() = 


"+,-./: 


6 


240 (space) 




7 


274-300 (< = > ? @) 




8 


333-337 ■([/]-*-) 




9 


377 (RUBOUT) 




10 


375 (ALT MODE) 




11 


anything not in bits 1-10 




Duplex (DUP) 


Octal Code 



Operation: DUP informs Monitor that the user wishes each char- 
acter typed at the console to be echoed on that console's printer as 
it is received by Monitor. The DUP instruction does not affect the 
user's registers. 
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Unduplex (UND) Octal Code: 6403 

Operation: UND informs Monitor that the user wishes to suppress 
character echoing. This can be done for reasons of privacy or be- 
cause a program does its own character echoing. The user's registers 
are unaffected by UND. 

Set Buffer Control (SBC) , Octal Code: 6401 

Operation: SBC permits the user program to clear its Teletype in- 
put and/or output buffer. Before executing SBC set bits and 1 
of the AC as indicated below: 

Bit Clear output buffer. 
Bit 1 Clear input buffer. 

Files and Disk I/O 

All user programs can gain access to disk storage. The time- 
sharing Monitor maintains a pool of available disk space which is 
allocated in units referred to as segments. (The size of a disk seg- 
ment varies among installations. Segments may be 128, 256, 521, 
or 1024 words each.) These segments are used to make up user 
files on the disk. Monitor also maintains, for each user, a directory 
of all files which he has defined. 

The IOTs which allow the user to access the disk are of two 
types: those which define files on the disk and those which transfer 
data between a defined file and the user's core. 

NOTE 

CREATE and OPEN require that a user 
set up a file name in core. FINF and WHO 
return file names to core. Each must be 
specified in internal code (excess 40 code) 
as shown in Table 9-23. Characters are 
packed two to a word. 

The first step in defining a file is to create it. Creating a file re- 
serves a single segment of disk storage and associates it with a 
name. This file can then be extended to any length desired. Ex- 
tending a file appends more segments to it. Similarly, a file can be 
reduced by any number of segments. Reducing a file removes the 
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last segment or segments from the file. Reducing a file to zero seg- 
ments deletes it entirely. Once created, a file can be protected, 
thereby restricting access to it. When created, a file can be read by 
any user, but only the creator can write in it. This protection can 
be reset if desired. Finally, it is possible to rename an existing file. 

None of these actions affect the contents of the file — they only 
reserve space on the disk. Until it has been written in, the actual 
content of a file is unspecified. Extending a file does not alter the 
content of the file as it previously existed. Once defined, files can 
be used to read and write data. Any number of words (1 to 4096) 
can be moved from any part of the user's core to any part of a file 
(subject to file protection). The user program specifies a location 
in core and a word count. This indicates how many words are to 
be transferred and from (or to) where in core they are to be 
moved. Also specified is a disk file address indicating what part of 
the file is involved. This address is the address of a word in the 
file. Files are addressed in the same manner as core: in 12-bit 
words. Unlike core, however, files can be longer than 4K. To ad- 
dress these files provision is made for a 24-bit disk file address, 
containing the high-order and lpw-order file addresses. 

File addresses are independent of any consideration of segments. 
The file address is meaningful only in defining files. Files can be 
read and written across segment boundaries without restriction. 
(The user cannot read or write beyond the last segment boundary.) 

When it executes a file read or write IOT, the system updates the 
core address and word count and places an error code in the error 
word (see RFILE) if any error is detected. (The error word must 
be cleared before executing the IOT.) At the end of a successful 
transfer, the word count is set. to zero and the core address set to 
the last word transferred. If the transfer cannot be completed for 
some reason, the word count and core address indicate how much 
of the transfer was successful; the error word indicates the cause of 
the failure. All file operations except CREATE (and OPEN) re- 
quire that the file be open. Up to four files can be open at a time. 
The process of opening a file associates it with one of four internal 
file numbers (0, 1, 2, or 3). All file IOTs except CREATE and 
OPEN, are specified in terms of one of these internal file numbers, 
rather than a file name. IOTs operate on the file which is indicated 
by that internal file number at the time. It is therefore possible to 
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write file handling programs which are independent of the actual 
file(s) they operate on. 

File IOTs, that are successfully completed, return with the AC 
cleared. If an error was found which prohibited execution of the 
IOT, one of the following error codes is returned: 

Code Explanation 

4000 There was no file opened on the specified in- 
ternal file number. 

4400 Attempting to redefine a file which is open to 
another user. 

5000 Attempting to create a file for a user whose 
directory is full. 

6000 File protection violation. 

6400 Invalid file name. 

7000 Attempting to open a nonexistent file. 

7400 Disk is full. 



Create a File (CRF) 



Octal Code: 6610 



Operation: The user can request the system to create a new file of 
one segment. The user program provides the new name for the file. 
Load the AC with the beginning address of a 3-word block, where: 

Words 1 through 3 : contain the 6-character name. 

If there is some reason why the request cannot be granted, the 
system will return a non-zero error code in the AC. The protection 
code of a newly created file is 12. 



Extend A File (EXT) 



Octal Code: 6611 



Operation: To extend the length of an existing file, that file must 
be currently open. Load the AC with the beginning address of a 
2-word block, where: 

Word 1 : contains the internal file number of the file to be ex- 
tended. 
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Word 2 : contains the number of segments the system should 
append to the file. 

If for some reason the request to extend a file cannot be granted, 
the AC will contain 4000, 4400, 6000, or the number of segments 
it failed to append. 

Reduce A File (RED) Octal Code: 6612 

Operation: To reduce the length of an existing file, that file must 
be currently open. Load the AC with the beginning address of a 
2-word block, where: 

Word 1 : contains the internal file number of the file to be 
reduced. 

Word 2 : contains the number of segments to be removed. 

This request is granted unless the file to be reduced is currently 
opened to another user or if the file is write protected against the 
user. 

Rename A File (REN) Octal Code: 6600 

Operation: REN is used to change the name of a file. Load the 
AC with the address of a 4-word block where: 

Word 1 : contains the internal file number associated with 

the file whose name is to be changed. 

Words 2-4: contains the new name. This name is in 6-bit 
characters packed two in a word. 

Protect A File (PROT) Octal Code: 6604 

Operation: The owner of a file can protect his file from unauthor- 
ized attempts to access it by using this instruction. Before, executing 
PROT, load the AC with: 

Bits 5 and 6 Internal file number of the reserved file to be 
protected. ' - 

Bit 7 Write protect against owner. 

Bit 8 Write protect against users whose project num- 

ber is same as owner's. 

9-186 



Bit 9 Read protect against users whose project number 

is same as owner's. 

Bit 10 Write protect against users whose project num- 

ber differs from owner's. 

Bit 1 1 Read protect against users whose project number 

differs from owner's. 

A file must be opened before it can be protected. PROT is legal 
only when performed by the file owner, i.e., the user who created 
the file. All attempts to access the file which violate any of the pro- 
tection flags are considered illegal. (For further information on 
project numbers, see the section on Storage Allocation.) 

Open A File (OPEN) Octal Code: 6601 

Operation: OPEN is used to associate a file with an internal file 
number, which is necessary because all file operations are in terms 
of the internal file numbers. Before executing the OPEN IOT, load 
the AC with the beginning address of a 5-word block, where : 

Word 1 : contains the internal file number. 

Word 2: contains the account number of the owner of the 
file. If 0, the account number of the current user 
is specified. 

Word 3-5: contain the name of the file to be opened. This 
name is in 6-bit characters packed two to a word. 

If there was another file associated with the internal file number 
before the execution of the OPEN IOT, it is closed automatically 
before the new file is associated with the internal file number. 

Close A File (CLOS) Octal Code: 6602 

Operation : CLOS terminates the association between files and their 
internal file numbers. Before executing CLOS, load the AC with a 
selection pattern for the internal file numbers whose associated 
files are to be closed. The file is closed if bit I is 1, where I = bit 0, 
1,2, or 3. 
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READ File (RFILE) and Write File (WFILE) 



Octal Code: 
6603 & 6605 



Operation : Once the association of a file with an internal 'file num- 
ber has been made, these IOTs allow the actual file reference to be 
made. They are illegal on a file that has not been opened ( asso- 
ciated with an internal file number). 

To read or write a file, load the AC with the address of a 6-word 
block, then execute the IOT. The format for the 6-word block is: 



Word 1 
Word 2 
Word 3 



Word 4: 



contains the high-order file word address. 

contains the internal file number. 

contains the negative of the number of words for the 
operation. This number is either the number of 
words to be read or the number of words to be 
written. 

contains a pointer to the beginning address — 1 of a 
buffer located in the user program. On a read oper- 
ation this buffer receives the information from the 
file: on a write operation this buffer holds the infor- 
mation that is to be sent to the file. 



Word 5: 



Word 6: 



contains the least significant 12 bits of the initial file 
word address to begin the operation. 

contains an error code: 
if no error 

if parity error 

if file shorter than word count 

if file not open 

if protection violated 

The read or write begins at the word specified by words 1 and 5. 
For example: 



1 

2 
3 
4 



TAD X 


WFILE 


.+ 1 





1 


-200 


6477 


200 
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means: write 200 (octal) words starting at word 200 of the file 
that is associated with internal file number one from a core area 
starting at location 6500. 

After completion of the transfer, the word count (word 3) and 
core address (word 4) are updated. If an error was detected the 
appropriate error code is placed in word 6. 



File Information (FINF) 



Octal Code: 6613 



Operation: FINF enables a user program to determine what file, 
if any, is associated with an internal file number. Load the AC with 
the beginning address of a 7-word block, where: 

Word 1: contains the internal file number for which the 
user program wishes information. 

Words 2 contain the information that the system returns 
through 7 : after executing FINF. 

Word 2: contains the account number of the owner or zero 
if no file is associated with the internal file number, 
that is, the file is not open. 

Words 3-5 : contains the name of the file in 6-bit code. 



Word 6: 



contains : 



Bit 1 Means 

7 write protected against owner 

8 write protected against users whose 
project number is same as owner's 

9 read protected against users whose 
project number is same as owner's 

10 write protected against users whose 
project number differs from owner's 

11 read protected against users whose 
project number differs from owner's 

Word 7: contains the number of segments which compose 
the file. 
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Assignable Devices 

Users can access both their own Teletype and the disk; with the 
remaining system devices (referred to. as the assignable devices) 
this is not true. One function of the Monitor is to ensure that de- 
vice usage never conflicts. Only one user at a time can access the 
high-speed paper-tape reader or punch, or any one of the DEC- 
tapes. To ensure that only one user can access a device, EduSystem 
50 requires that the device be assigned before it is used. After a 
device is assigned, it is not available until it is released by its owner. 

Once assigned, the device is programmed exactly as on a stand- 
alone PDP-8. The RRB instruction is used to read a character from 
the high-speed reader; the PLS instruction is used to punch one on 
the high-speed punch. The skip IOTs (RFS and PSF) can be used 
(followed by JMP .—1) but are not necessary. For block transfers, 
there are two string transfer commands: RRS and PST. 

The DECtape instructions have been simplified. A single instruc- 
tion, DTXA, initiates the transfer of a block of data. The DTRB 
instruction is then used to determine if the transfer was successful. 
The skip instruction, DTSF, can be used (followed by JMP .—1) 
but is not necessary. 

Executing any of the assignable device IOTs without first as- 
signing the device gives the following results: (a) If the device is 
assigned to another user, the instruction is considered illegal; pro- 
gram execution is now terminated and an error message printed; 
(b) If the device is available it is automatically assigned before 
execution of the IOT. The device then belongs to this user until he 
releases it. 

Because these devices are shared by all users, the Monitor must 
ensure that they are operable at all times. In particular, the Monitor 
must ensure that a user is not waiting for a device which is not 
available. This situation can arise when trying to use the punch 
when it is turned off, or when the reader has read off the end of a 
tape. All these conditions, known as "hung devices" are considered 
to be system errors. If the program doing the transfer has been en- 
abled for system errors (by executing an SEA), control transfers 
to the error routine indicated which must clear the error flag in the 
status word before continuing (See Program, and System Status). 
If the user program has not been enabled for system errors, a hung 
device causes the program to be terminated and an error message 
is printed. 
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Assign Device (ASD) Octal Code: 6440 

Operation: If the device specified by the content of the AC is 
available, it is assigned to the user program and the AC is cleared. 
Otherwise, the number of the job owning the device is placed in 
the AC. If the device does not exist, 7777 is returned in the AC. 

4000 Paper-tape reader 

400 1 Paper-tape punch 
4005 + N DECtape unit N 

The assignment is in effect until a corresponding REL instruction 
or LOGOUT. 

Release Device (REL) Octal Code: 6442 

Operation: The device specified by the contents of the AC is re- 
leased (providing it was owned by the user executing the REL). 
The AC is cleared. Releasing a device makes it available to other 
users. 

Skip on Reader Flag (RSF) Octal Code: 601 1 

Event Time: 1 

Operation: The reader flag is sensed, and if it contains a binary 1, 
the contents of the PC are incremented by one so that the next se- 
quential instruction is skipped. The reader flag is bit 8 of status 
register 1 , and has a value of 1 if the reader buffer is not empty. 

Read Reader Buffer (RRB) Octal Codes: 6012 & 

"" 6016 

Event Time: 2 

Operation: The contents of the reader buffer are transferred into 
bits 4 through 1 1 of the AC and the reader flag is cleared if the 
reader buffer is empty. This instruction does not clear the AC. If 
the reader buffer is empty, the user program is dismissed until the 
reader flag is 1 or an end-of-tape condition is detected. 
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Table 9-23. 


EduSystem 


50 Internal Character Set 






6-Bit 14 


8-Bit 




6-Bit 14 


8-Bit 


Character 


Octal 


Octal 


Character 


Octal 


Octal 


Space 


00 


240 


@ 


40 


300 


f 


01 


241 


A 


41 


301 


55 


02 


242 


B 


42 


302 


# 


03 


243 


C 


43 


303 


S 


04 


244 


D 


44 


304 


% 


05 


245 


E 


45 


305 


& 


06 


246 


F 


46 


306 


J 


07 


247 


G 


47 


307 


( 


10 


250 


H 


50 


310 


) 


11 


251 


I 


51 


311 


* 


12 


252 


J 


52 


312 


+ 


13 


253 


K 


53 


313 


J 


14 


254 


L 


54 


314 


- 


15 


255 


M 


55 


315 


, 


16 


256 


N 


56 


316 


/ 


17 


257 


O 


57 


317 





20 


260 


P 


60 


320 


1 


21 


261 


Q 


61 


321 


2 


22 


262 


R 


62 


322 


3 


23 


263 


S 


63 


323 


4 


24 


264 


T 


64 


324 


5 


25 


265 


U 


65 


325 


6 


26 


266 


V 


66 


326 


7 


27 


267 


w 


67 


327 


8 


30 


270 


X 


70 


330 


9 


31 


271 


Y 


71 


331 


; 


32 


272 


z 


72 


332 


j 


33' 


273 


I 


73 


333 


< 


34 


274 


\ 


74 


334 


= 


35 


275 


] 


75 


335 


> 


36 


276 


t 


76 


336 


? 


37 


277 


<- 


77 


337 



14 The 6-bit octal code is used to store passwords and file names only. 
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Reader Fetch Charact er (RFC) Octal Code: 6014 

Event Time: 3 

Operation: The reader flag arid the Monitor reader buffer are both 
cleared, the reader is started to fill the Monitor reader buffer and 
the reader flag is set after the buffer is full or the end of tape is 
detected. 

Read Reader String (RRS) Octal Code: 6010 

Operation: This instruction initiates a transfer from the high-speed 
reader to a selected area in the user's core. Before executing RRS, 
load the AC with the address of a 2-word block, where: 

Word 1 : minus the number of characters to be transferred. 

Word 2: the address of the user core area minus one. 

The transfer is terminated by either of two conditions: (a) the 
word count is zero indicating that the required number of char- 
acters have been read or (b) the reader has read off the end of the 
tape (a system error condition) . In either case, the word count and 
core address are updated. RRS clears the AC. 

Load Punch Buffer Sequence (PLS) Octal Code: 6026 

Operation: The ASCII character is in AC bits 4 through 11 and 
is transmitted to the high-speed punch. PLS does not clear the 
accumulator. 

Skip on Punch Flag (PSF) Octal Code: 6021 

Event Time: 1 

Operation: The punch flag is sensed, and if it contains a binary 1, 
the contents of the PC is incremented by one so that the next se- 
quential instruction is skipped. The punch flag is bit 9 of status 
register 1, and has a value of 1 if the punch buffer is not full. If 
the punch flag is 0, the program is dismissed until the punch flag 
isl. 
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Punch String (PST) 



Octal Code: 6020 



Operation: PST allows a user program to punch a string of char- 
acters. Before executing PST, load the AC with the beginning ad- 
dress of a 2-word block, where : 

Word 1 : contains the negative of the number of characters to 
be punched. 

Word 2: contains the beginning address —1 of the string to be 
punched; the characters should be right justified one 
per word. 

After execution of PST, the system takes only as many characters 
as fit in the punch buffer; it then makes the appropriate adjustment 
to word 2 to indicate a new starting address and to word 1 to in- 
dicate the reduced character count. It returns to the instruction 
following the PST which should be a JMP .—2 to continue the 
transfer. If the character count is reduced to zero, the instruction 
following PST is skipped. The AC is cleared by PST. 



Load Status Register A (DTXA) 



Octal Code: 6764 



Operation: DTXA allows a user program to read and write records 
(129-word blocks) on DECtape. Load the AC with the beginning 
address of a 3-word block, where: 



Word 1: contains: 
Bit 1 



Means 



Word 2:' 
Word 3: 



0-2 contains the transport unit select number, 

3-5 0, 

6-8 = 2 for read data function, 

4 for write data function, 

9-11 0. 

contains the DECtape block number. 

contains the beginning core address — 1 of record 
buffer. 
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After DTXA is given, the DECtape request is placed in the DEC- 
tape request queue. After the completion of any DECtape request, 
the DECtape flag in status register 2 is turned on. DTXA does not 
update word 3 . The AC is cleared by DTXA. 

Skip on Flags (DTSF) Octal Code: 6771 

Operation: The content of both the error flag and the DECtape 
flag is sampled, and if either flag contains a binary 1, the content 
of the PC is incremented by one to skip the next sequential instruc- 
tion. If both flags are zero, the user program is dismissed until the 
skip is satisfied. 

Read Status Register B (DTRB) Octal Code: 6772 

Operation: The content of DECtape status register B is loaded 
into the AC by an OR transfer. The AC bit assignments are: 

Bit Assignment 






error flag 


1 


mark track error 


2 


end of tape 


3 


select error 


4 


parity error 


5 


timing error 


6-10 


unused 


11 


DECtape flag 



Program Control 

There are a number of ways that the status of a running program 
can be changed. The program can be terminated in one of three 
ways: by execution of a HLT, by the user typing tBS to force a 
program halt, or by a program error which forces Monitor to ter- 
minate the program after printing an error message. 

It is also possible for the status of a running program to change 
without it being terminated. First, the user program can request 
that it handle its own program error conditions. In this case, Mon- 
itor does not terminate a job on an error; instead, it transfers con- 
trol to a user error handler. This error handler then determines 
what the error was, by a CKS instruction and takes appropriate 
action. Monitor also provides the program with an interrupt key, 
tC. If the user types a fC, the Monitor unconditionally transfers 
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control to. a restart address. Thus, the user program can handle its 
own restarts. 

Halt (HLT) Octal Code: 7402 

Operation: This instruction is used to stop the user program and 
return control to Monitor. Executing HLT is equivalent to typing 
tBS followed by RETURN. 

Set Restart Address (SRA) Octal Code: 6417 

Operation: This instruction allows the user to specify an address 
to which control is transferred when an tC is typed on the user's 
console. Load the AC with the restart address and execute SRA. 
If tC is detected, the program's input and output buffers are 
cleared, the AC and Link are cleared and control goes to the re- 
start address. 

Set Error Address (SEA) Octal Code: 6431 

Operation: This instruction allows the user to specify an address 
to which control is transferred in the event of a system error. Load 
the AC with an address before executing SEA. If a system error is 
detected, Monitor simulates a JMS to the error address. The pro- 
gram counter is stored in the error address and control transferred 
to the error address +1. AC, Link, and input/output buffers are 
not affected. The error code of the system error is in STRO bits 
9-11. Bit 10 of STR1 is set. The error routine must read these bits 
(by a CKS) to determine the cause of the error, then clear them 
by means of a CLS. 

The only error code that occurs in the course of normal system 
usage is due to a hung device. This error occurs when the user at- 
tempts to use a punch not already turned on, access a DECtape 
not yet selected, or allows the paper-tape reader to run off the end 
of a tape. The error routine must release the device to clear the 
error condition. The illegal IOT error probably means that an as- 
signable device IOT was executed without the device first being 
assigned. Swap and file errors occur if a hardware error is detected 
while Monitor is swapping user programs or while reading or 
writing file directories. These are system malfunctions from which 
there is no recovery. 
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Program and System Status 

Because EduSystem 50 programs run under control of a time- 
sharing Monitor, it is important for them to determine their status 
within the system and the status of the system as a whole. Several 
IOTs, listed below, have been defined for this purpose. 



Check Status (CKS) 



Octal Code: 6200 



Monitor maintains for each user a complete set of status informa- 
tion, his program's running status and the state of his input/output 
devices. This status information, stored in three words, can be ac- 
cessed by a running program with the CKS instruction. Before 
executing a CKS, load the accumulator (AC) with the address of 
a three-word block. Executing CKS stores the three status words 
(STRO, STR1, and STR2) in the three-word block and clears the 
AC. Information about the status of individual devices can also be 
checked by the skip IOTs. 
The formats of these registers are: 



STRO Bits 






Run Bit 


User program is in the run state 


1 


Error Enable 


Program handles its own errors 


2-4 




Unused 


5 


JSIOT 


System use only 


6 


JSIOTC 


System use only 


7 


JSEXON 


System use only 


8 




Unused 


9-11 


Error Code 


System detected error condition 

1 Illegal IOT 

2 Swap read error 

3 Swap write error 

5 Disk file error 

6 Hung device 


STR1 Bits 









1 

2 
3 
4 



Timer 
FileO 
Filel 
File 2 
File 3 



Time is up 

Jnternal file is not busy 
Internal file 1 is not busy 
Internal file 2 is not busy 
Internal file 3 is not busy 
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STR1 Bits 



5 


Delimiter 


There is a delimiter in the input 
buffer 


6 


~ 


Unused 


7 


Teleprinter 


Output buffer is not full 


8 


Reader 


Character in reader buffer 


9 


Punch 


Punch buffer is not full 


10 


Error 


System error detected, code in bits 7 
through 1 1 of STRO 


11 


Wait 


Job is not waiting 


STR2 Bits 







0-8 Unused 

9 DECtape DECtape transfer requested 

10 Error DECtape error 

11 DECtape DECtape flag 

Each user has available to him a 12-bit switch register just as he 
does on a stand-alone PDP-8. This switch register can be manipu- 
lated by means of the Monitor command SWITCH or under pro- 
gram control. 

OR With Switch Register (OSR) Octal Code: 7404 

Operation: The content of the user's switch register is inclusively 
ORed into the AC. 

Set Switch Register (SSW) Octal Code: 6430 

Operation: The content of the AC is stored in the user's switch 
register. The AC is cleared. Assembly language programs run 
under control of the Monitor. The following IOTs are defined to 
allow a program to determine the status of the system as a whole. 

Segment Size (SIZE) Octal Code: 6614 

Operation: The segment is the basic unit of on-line file storage. 
Different EduSystem 50's have differing segment sizes. SIZE allows 
a program to determine the segment size. The segment size is re- 
turned in the AC. 
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Segment Count (SEGS) Octal Code: 6406 

Operation: The number of available disk segments is returned in 

the AC. 

Account (ACT) Octal Code: 6617 

Operation: The account number (of the job number given) is re- 
turned in the AC. If AC is 0, the account number for the cur- 
rent job is returned. If the requested job does not exist, zero is 
returned. 
Who (WHO) Octal Code: 66-16 

Operation: The account number and password of the current job 
are returned to the 3-word block whose address is in the AC and 
the AC is cleared. 
User (USE) Octal Code: 6421 

Operation: Return in the AC the number of the current job. 
Console (CON) Octal Code: 6422 

Operation: Return in the AC the console unit number assigned to 
the job whose number is in the AC, if that console number does 
not exist, — 1 is returned. 

User Run Time (URT) Octal Code: 6411 

Operation: Load the AC with the address of a 3-word block, 
where word 1 contains the number of the job for which the run 
time is sought. The run time is returned in the last two locations 
of the block. If job is specified, the run time of the current job 
is returned. The AC is cleared. 

Time-of-Day (TOD) Octal Code: 6412 

Operation: Returns the value of the System Clock in military 
time (using a 24-hour cycle) in the two locations starting at the 
location of the address in the AC. The AC is cleared. 

Return Clock Rate (RCR) Octal Code: 6413 

Operation: The number of clock ticks per second is returned in 
the AC. 
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Date (DATE) Octal Code: 6414 

Operation: Returns the date in the AC. The format of this 12-bit 
number is: 

DATE=( (YEAR-1964) * 12+(MONTH-l) ) *31+DAY-1 

Skip on EduSystem 50 (TSS) Octal Code: 6420 

Operation: This instruction is used by programs which run under 
both EduSystem 50 and on a standard PDP-8. Under EduSystem 
50, the instruction following TSS is skipped and the Monitor ver- 
sion number is returned in the AC. On a standard PDP-8, the 
IOT has the effect of an NOP instruction. 

Quantum Synchronization (SYN) Octal Code: 6415 

Operation: Upon execution of this instruction, the system dis- 
misses the user program and sets it in the run state so that it will 
be run again in turn. Ordinarily, this instruction is used to ensure 
a full time quantum to perform some critical operation. 

Set Time (STM) Octal Code: 6416 

Operation: The system provides a clock time for each user pro- 
gram. By means of this IOT, the time can be set to "fire" after a 
specified number of clock ticks have elapsed. Load the AC with 
the time (in seconds) to prime the timer. Upon execution of the 
STM instruction, the system sets the time to "fire" in the specified 
number of seconds and turns the time bit (bit 0) in status reg- 
ister 1 to 0, clears the AC, and dismisses the job. After the speci- 
fied time has elapsed, the system turns bit back to 1, and the 
job is restarted. 

PDP-8 Compatibility 

Programming EduSystem 50 in assembly language is very sim- 
ilar to programming a stand-alone PDP-8. All instructions except 
the IOTs operate identically in either case. As discussed pre- 
viously, programming such devices as the Teletype and high-speed 
reader/punch for EduSystem 50 is somewhat simpler. EduSystem 
50 runs programs which include timing loops. It also properly 
executes the IOTs not mentioned in this manual, e.g., TCF, PCF, 
etc. Thus, programs written for stand-alone PDP-8s with Teletype 
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and high-speed reader or punch will run on EduSystem 50, al- 
though generally not as efficiently as programs which are written 
specifically for EduSystem 50. 

The same is not true for disk and DECtape operations because 
EduSystem 50 uses a simplified programming structure for these 
devices. The actual differences in coding are very small. It is a 
simple task to adapt previously written code for EduSystem 50 disk 
and DECtape. 

There are a few standard changes which users generally make 
in adapting PDP-8 code to EduSystem 50. Monitor does the 
echoing rather than the user program. The TLS which does the 
echo can be deleted and a DUP instruction added somewhere 
near the start of the program. Also, for efficiency, the EduSystem 
50 delimiter capability can be used. A KSB in the program deter- 
mines what the delimiters are. 

Many PDP-8 programs execute a reader and punch IOT early 
in the program, to initialize the device, whether they are actually 
to be used or not. If the devices are free, they can be assigned and 
thus made unavailable to other users. If they are unavailable, the 
program terminates on an illegal IOT. Thus, it is important not to 
execute these IOTs randomly. If disk or DECtape is involved, the 
actual transfer code must be altered to conform to EduSystem 50. 
(The fact that core page 37, locations 7600 through 7777, is 
available to EduSystem 50 programs is useful in making these 
changes. New code can be placed in the area normally reserved 
for the Binary Loader. ) 

The most difficult code to convert is that code which operates 
under interrupt. To be run under EduSystem 50, these programs 
must be recoded so as not to use the interrupt. 

IOTs for nonexistent devices are ignored as are CDFs and CIFs 
to field zero. (Other CDFs and CIFs are illegal.) It must be re- 
membered that many IOTs have been redefined for use as special 
EduSystem 50 instructions. In all other situations, EduSystem 50 
remains compatible with stand-alone systems whenever possible. 
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Table 9-24. EduSystem 50 IOT Instruction Summary 



Number Instruction 



Function 



Program Control 

6200 CKS 

6402 DUP 

6403 UND 

6405 CLS 

6411 URT 

6412 TOD 

6413 RCR 

6414 DATE 

6415 SYN 

6416 STM 

6417 SRA 

6420 TSS 

6421 USE 

6422 CON 

6430 SSW 

643 1 SEA 
6440 ASD 
6442 REL 
7402 HLT 
7404 OSR 

File Control 

6406 SEGS 

6600 REN 

6601 OPEN 

6602 CLOS 

6603 RFILE 

6604 PROT 

6605 WFILE 

6610 CRF 

6611 EXT 

6612 RED 

6613 FINF 

6614 SIZE 

6616 WHO 

6617 ACT 



Check Status 

Duplex Console 

Unduplex Console 

Clear Status 

User Run Time 

Time of Day 

Return Clock Rate 

Date 

Quantum Synchronization 

Set Timer 

Set Restart Address 

Skip on TSS/ 8 

User 

Console 

Set Switch Register 

Set Error Address 

Assign Device 

Release Device 

Halt 

OR With Switch Register 

Segment Count 
Rename File 
Open File 
Close File 
Read File 
Protect File 
Write File 
Create File 
Extend File 
Reduce File 
File Information 
Segment Size 
Who 
Account Number 
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Table 9-24 (Cont.)- EduSystem 50 IOT Instruction Summary 



Number Instruction 



Function 



Input Buffer Control 

6030 KSR 

6031 KSF 

6032 KCC 
6034 KRS 
6036 KRB 

6400 KSB 

6401 SBC 



Read Keyboard String 

Skip On Keyboard Flag 

Clear Keyboard Flag 

Read Keyboard Buffer Static 

Read Keyboard Buffer Dynamic 

Set Keyboard Break 

Set Buffer Control Flags 



Output Buffer Control 

6040 SAS 

6041 TSF 

6042 TCF 
6044 TPC 
6046 TLS 



Send A String 
Skip On Teleprinter Flag 
Clear Teleprinter Flag 
Load Teleprinter and Print 
Load Teleprinter Sequence 

High-Speed Paper Tape Reader and Control (Type PC02) 

60 1 RRS Read Reader String 

601 1 RSF Skip On Reader Flag 

6012 RRB Read Reader Buffer 
6014 RFC Reader Fetch Character 

High-Speed Paper Tape Punch and Control (Type PC03) 



6020 


PST 


Punch String 


6021 


PSF 


Skip On Punch Flag 


6022 


PCF 


Clear Punch Flag 


6024 


PPC 


Load Punch Buffer and Punch Character 


6026 


PLS 


Load Punch Buffer Sequence 



DECtape Control (Type TC01) 

6764 DTXA Load Status Register A 

6771 DTSF Skip On Flags 

6772 DTRB Read Status Register B 
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STORAGE ALLOCATION 

Storage Map 

The system's storage allocation is illustrated below. 



CORE MEMORY 







PHANTOMS 








RESIDENT 


RESIDENT 


INIT 


USER 


USER 


USER 


MONITOR 


MONITOR 


USER 
PROGRAM 


PROGRAM 


PROGRAM 


PROGRAM 


4K 


4K 


4K 


4K 


4K 


4K 



SI 



FIP 



INIT 



TSB 
(RES 0) 



DISK STORAGE 



TSBI 
(RES 1) 



JOB #1 



JOB #7 \ JOB # N 



FILES / FILES 



K 



- MONITOR - 



■ SWAPPING AREA - 



FILE AREA- 



H 



Figure 9-5. EduSystem 50 Storage Map 



File Directories 

There are two directories on the disk: the Master File Directory 
(MFD) referenced mainly by the system, and the User File Direc- 
tory (UFD), referenced by the user. One of the functions of the 
MFD is to service the UFD. A UFD is a particular user's file 
directory containing the names of programs he has created on the 
disk. 

The UFD is a file like any other file except that its filename is 
the project-programmer number and password. When a user is 
logged in under a specific number and references the disk, he is 
actually referencing his own file area on the disk through the UFD 
which has his project-programmer number as its name. He can 
specifically code his routine to reference UFDs of other users or 
the MFD; whether he is successful or not depends on the type 
of protection that has been specified for the area he is trying to 
reference. 
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MASTER FILE DIRECTORY 



USER FILE DIRECTORY 



WORD 1 



WORD 8 




PROJECT NO. 



(1 CHAR.) PA 
(1 CHAR.) WO 



PROG. NO. 



SS 
RD 



(1 CHAR.) 
(1 CHAR.) 



LINK TO NEXT ENTRY 



UNUSED 



PROTECTED BITS 



CONSOLE TIME 



CPU TIME 



POINTER TO RETRIEVAL 






SEGMENT 


#1 


SEGMENT 


#2 


SEGMENT 


#3 


SEGMENT 


#4 


SEGMENT 


#5 


SEGMENT 


#6 


■SEGMENT 


#7 




(1 CHAR.) Fl 
(1 CHAR.) NA 
(1 CHAR.) WO 


LE (1 CHAR.) 
ME (1 CHAR.) 
RD (1 CHAR.) 


LINK TO NEXT ENTRY 


UNUSED 


PROTECTED ..BITS 


SEGMENT COUNT 


DATE OF. CREATION 


POINTER TO RETRIEVAL 



LINK TO NEXT RETRIEVAL BLOCK . 


SEGMENT 


#1 


SEGMENT 


#2 


SEGMENT 


#3 


SEGMENT 


#4 


SEGMENT 


#5 


SEGMENT 


#6 


SEGMENT 


#7 



Figure 9-6. File Directories 



Project-Programmer Numbers 

System account numbers are a combination of project number 
and programmer number. The account number (always written in 
octal) has a binary equivalent. When expressed as a 12-bit binary 
number, the project number is formed by the leftmost 7 bits and 
the programmer number is the rightmost 5 bits. For example, the 
account number 623 (octal) equals 000 110 010 011 (binary). 
The left 7 bits (leading zeros included if any) are 0001100 
(binary) and equal 14 (octal) which is the project number. The 
programmer number is 10011 (binary) or 23 (octal). Therefore 
a user with account number 623 has: project number 14 and pro- 
grammer number 23. 
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character codes 



ASCII 1 Character Set 









Decimal 








Decimal 




8-Bit 


6-Bit 


Equivalent 




8-Bit 


6-Bit 


Equivalent 


Character 


Octal 


Octal 


(Al Format) 


Character 


Octal 


Octal 


(Al Format) 


A 


301 


01 


96 


j 


241 


41 


-1952 


B 


302 


02 


160 


" 


242 


42 


-1888 


C 


303 


03 


224 


# 


243 


43 


-1824 


D 


304 


04 


288 


$ 


244 


44 


-1760 


E 


305 


05 


352 


% 


245 


45 


— 1696 


F 


306 


06 


416 


& 


246 


46 


-1632 


G 


307 


07 


480 


» 


247 


47 


— 1568 


H 


310 


10 


544 


( 


250 


50 


-1504 


I 


311 


11 


608 


) 


251 


51 


— 1440 


J 


312 


12 


672 


* 


252 


52 


-1376 


K 


313 


13 


736 


+ 


253 


53 


— 1312 


L 


314 


14 


800 


1 


254 


54 


-1248 


M 


315 


15 


864 


_ 


255 


55 


— 1184 


N 


316 


16 


928 




256 


56 


-1120 


O 


317 


17 


992 


'/ 


257 


57 


-1056 


P 


320 


20 


1056 




272 


72 


-352 


Q 


321 


21 


1120 




273 


73 


-288 


R 


322 


22 


1184 


< 


274 


74 


—224 


S 


323 


23 


1248 




275 


75 


-160 


T 


324 


24 


1312 


> 


276 


76 


-96 


U 


325 


25 


1376 


? 


277 


77 


—32 


V 


326 


26 


1440 


@ 


300 




32 


w 


327 


27 


1504 


[ 


333 


33 


1760 


X 


330 


30 


1568 


\ 


334 


34 


1824 


Y 


331 


31 


1632 


] 


335 


35 


1888 


Z 


332 


32 ' 


1696 


f(A)- 


336 


36 


1952 





260 


60 


-992 


A-) 3 


337 


37 


2016 


1 


261 


61 


-928 


Leader/Trailer 


200 






2 


262 


62 


-864 


LINE FEED 


212 






3 


263 


63 


—800 Carriage RETURN 


215 






4 


264 


64 


-736 


SPACE 


240 


40 


-2016 


5 


265 


65 


-672 


RUBOUT 


377 






6 


266 


66 


—608 


Blank 


000 






7 


267 


67 


-544 


BELL 


207 






8 


270 


70 


-480 


TAB 


211 






9 


271 


71 


—416 


FORM 


214 























1 An abbreviation for American Standard Code for Information Interchange. 

2 The character in parentheses is printed on some Teletypes. 
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read-in mode loader 

The Read-In Mode (RIM) Loader is the first program loaded 
into an EduSystem computer. 1 This program is loaded by toggling 
17 instructions into core memory using the console SWITCH 
REGISTER (SR). The RIM Loader instructs the computer to 
receive and store, in core, data punched on paper tape in RIM 
coded format — primarily the EduSystem system tapes. 

There are two RIM Loader programs : one is used when the in- 
put is to be from the low-speed (Teletype) paper tape reader; the 
other is used when input is to be from the high-speed paper tape 
reader. The locations and corresponding instructions for both pro- 
grams are listed in Table A-l. The procedure for loading (toggling) 
the RIM program into core is illustrated in Figure A-l. The RIM 
Loader is loaded into field zero of core. 

Table A-l. RIM Loader Programs 





INSTRUCTION 


Location 


Low-Speed 


High-Speed 


7756 


6032 


6014 


7757 


6031 


6011 


7760 


5357 


5357 


7761 


6036 


6016 


7762 


7106 


7106 


7763 


7006 


7006 


7764 


7510 


7510 


7765 


5357 


5374 


7766 


7006 


7006 


7767 


6031 


6011 


7770 


5367 


5367 


7771 


6034 


6016 


7772 


7420 


7420 


7773 


3776 


3776 


7774 


3376 


3376 


7775 


5356 


5357 


7776 


0000 


0000 



1 The RIM Loader is not needed if the EduSystem has a hardware boot- 
strap. 
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SET 





LOAD RIM 
INTO FIELD 




SR = 7756 


1 ' 






PRESS 
ADDR LOAD 






SET SR = 
FIRST INSTRUCTION 



LIFT 
DEP 



SET 5R* 
NEXT INSTRUCTION 




NO 



Figure A-l. Loading the RIM Loader 

After RIM has been loaded, it is good programming practice to 
verify that all instructions were stored properly. This can be done 
by performing the steps illustrated in Figure A-2, which also shows 
how to correct an incorrectly stored instruction. 
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When loaded, the RIM Loader occupies absolute locations 7756 
through 7776. EduSystems do not use the RIM locations; there- 
fore, RIM need not be reloaded unless the contents of the RIM 
locations have been altered by the user. 



SET 
SR = 7756 



PRESS 
ADDR LOAD 



PRESS 
EXAM 




Figure A-2. Checking the RIM Loader 
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character codes 



The ASCII 1 character codes shown in the following table are 
used by EduSystems as the argument in the CHR$ function. For 
each ASCII code a second acceptable form is permitted in CHR$. 
The second code is obtained by adding 128 to the code given in 
the following table. For example, CHR$ would print A in response 
to either 65 or 193 as an argument. These codes are also used with 
the CHANGE statement in EduSystem 50. 





ASCII Code No. 




ASCII Code No. 


Character 


(Decimal) 


Character 


(Decimal) 


linefeed 


10 






formfeed 


12 






RETURN 


13 






space 


32 


@ 


64 


! 


33 


A 


65 


i» 


34 


B 


66 


# 


35 


C 


67 


$ 


36 


D 


68 


% 


37 


E 


69 


& 


38 


F 


70 


» 


39 


G 


71 


( 


40 


H 


72 


) 


41 


I 


73 


* 


42 


J 


74 


+ 


43 


K 


75 




44 


L 


76 





45 


M 


77 




46 


N 


78 


/ 


47 


O 


79 





48 


P 


80 


1 


49 


Q 


81 


2 


50 


R 


82 


3 


51 


S 


83 


--•> 4. 


C52>- 


T 


84 


5 


53 


U 


85 


6 


54 


V 


86 


7 


55 


w 


87 


8 


56 


X 


88 


9 


57 


Y 


89 




58 


Z 


90 


j 


59 


[ 


91 


< 


60 


\ 


92 


zzz 


61 


] 


93 


> 


62 


t 


94 


? 


63 


«- 


95 



1 An abbreviation for American Standard Code for Information Inter- 
change. 
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edusystem so 

monitor command 
summary 

MONITOR COMMANDS 

A Monitor command is a string of characters terminated by a 
'semicolon (;), a colon (:), or a carriage return (RETURN key). 
Parameters of commands can be octal numbers, decimal numbers, 
character strings, or single letters. In the following summary, pa- 
rameters are coded as follows: 



C1,C2, ... 
D1,D2, ... 
S1,S2, ... 
L1,L2, ... 
Logging In and Out 
LOGIN CI SI 



LOGOUT 



TIME CI 



Device Allocation 

ASSIGN LI 



represent octal numbers 
represent decimal numbers 
represent character strings 
represent single letters 

Request to login: 

CI = user's account number 

SI = user's password 
Request to logout: processing and 
console time are printed. 

Request printout of processing time: 

CI = job number 
Without CI, current job is assumed: 
before logging in and without CI, 
time-of-day is typed out; If CI == job 
0, time-of-day is printed. 

Access device: 

LI = R for paper tape reader 
P for paper tape punch 
D for any DECtape unit 
L for line printer 
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ASSIGN D CI 

RELEASE LI 
RELEASE D CI 



File Handling 

OPEN CI SI C2 



CLOSE SI 
CREATE SI 
RENAME CI SI 

REDUCE CI Dl 



EXTEND CI Dl 



PROTECT CI C2 



Access DECtape unit; 
D -DECtape 
CI = device number 

Release device: 

LI =R, P (see ASSIGN LI) 

D = DECtape unit 
CI = DECtape number 

Establish association between internal 
file number and file : 

CI = internal file number 

SI = filename 

C2 — account number 

Close files : 

SI = list of internal file numbers 

Create new file: 

SI = name of new file 

Rename a file: 

CI = internal file number 
SI = new name of file 

Reduce length of file: 

CI = internal file number 
Dl = number of segments to be re- 
moved from end of file 

Extend length of file: 

CI = internal file number 
Dl = number of segments to be 
added to end of file 

Protect a file: 

CI ■= internal file number 
C2 = new file protection mask 

1 read protect against users 
with different project 
number 
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FC1 



2 write protect against 

users with different 

project number 
4 read protect against users 

with same project 

number 
10 write protect against 

users with same project 

number 
20 write protect against 

owner or the sum of any 

combination 

Print association between internal file 
numbers and files: 

CI ■= internal file number 



Control of User Programs 

START CI 



START 
RESTART CI 
DEPOSIT CI C2 



.Cn 



EXAMINE CI Dl 



Utility Commands 

SAVE SI 
SAVE CI SI C2 
SAVEC1S1C2C3 
SAVEC1S1C2C3C4 



Execute user program: 
CI = starting location 

Restart user program. 

Set program restart address. 

Store in core memory: 
CI = location 
C2 = contents to be stored 
Cn = location CI -Hi— 1 
n ^ 10 decimal 

List specified contents : 
CI ■= first location 
Dl = number of location to 
listed Dl < 10 decimal 



be 



Save core image: 

CI = owner's account number 

SI = name of file 

C2 ■= file address of first word to 
be saved; if not specified, en- 
tire 4K is saved 
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LOAD CI SI 
LOAD CI SI C2 
LOAD CI SI C2 C3 
LOADC1S1C2C3C4 



C3 = core address of first word to 
be saved; if not specified, en- 
tire core is saved 

C4 = core address of last word to 
be saved; if not specified, 
entire core is saved 

Load core image: 

CI = owner's account number 

SI = name of file 

C2 — file address of first word to be 
loaded; if not specified, entire 
4K is loaded 

C3 = core address of first word to 
be loaded, if not specified, 
entire core is loaded 

C4 = core address of last word to 
be loaded; if not specified, 
entire core is loaded 



RSI 


Run system file: 




SI = name of file 


RUN SI 


Run user file: 




SI = name of file 


RUN CI SI 


Run user file : 




CI — owner's account number 




SI = name of file 


S 


Slop execution. 


WHERE 


Print contents of location counter 



USER 



USER CI 



SWITCH CI 



cumulator, link, and switch register. 

Print number of the job and devices 
owned. 

Print device numbers : 

CI = user's account number 

Set switch register: 
CI = word to be set 
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BREAK CI 

DUPLEX 
UNDUPLEX 
TALK CI SI 



Set keyboard break mask: 
CI = new mask 

Echo typed characters on printer. 

Ignore previous DUPLEX command. 

Send a message to console CI : 
CI = destination console 
SI = message 
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oytest 
user's guide 



INTRODUCTION 

EduTest is a system for grading and analyzing test responses. 
The EduTest system is designed to run on a minimum configura- 
tion of EduSystem 30 or EduSystem 40. EduTest offers two bene- 
fits to teachers: 

1 . Less work in grading tests and analyzing results. 

2. Increased information on student performance, question 
difficulty, and class response patterns. 

TEACHER'S GUIDE 
Test Characteristics 

Any teacher-made multiple choice test can be scored, analyzed, 
and graded with EduTest. The program handles a maximum of 
100 questions with a choice of five answers labeled A through E. 
Tests in excess of 25 questions are subdivided into parts of 25 
questions each. 

A, B, C, D, and E are the available choices for each answer. 
The types of questions may vary; True-False questions (answers 
A and B) and multiple choice questions (using A through E an- 
swers) may be intermixed. 

EduTest Output 

The EduTest System produces a variety of output reports help- 
ful in analyzing test results and evaluating a test and its answers. 
The standard statistical measures of mean, median, and standard 
deviation are automatically calculated and a score distribution 
graph printed. A student response matrix indicating each student's 
response to each question is produced as well as item and ques- 
tion analyses which can be used to evaluate the validity of the 
questions and the available answers. 

EduTest allows a teacher to weight questions so that a correct 
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response to some questions is worth more than correct responses 
for others. One simple method of weighting is to give each "aver- 
age" question a weight of 1, then a weight of 2 means a question 
is worth twice the points of an average question. EduTest permits 
a user to weight questions with any value and automatically cal- 
culates the ratio to a scale of 100. 

At user option EduTest also allows grade specification accord- 
ing to numeric value and displays the resulting grade distribution. 
Grade assignment may be redone until the desired distribution 
curve is achieved. At the conclusion of the run, EduTest prints 
a list of students by grade achieved. 

Teacher Responsibilities 

The teacher writes a test of no more than 100 questions. Be- 
cause a maximum of 25 responses can be recorded on a single 
answer card, a test in excess of 25 questions, must be divided 
into parts, i.e. a maximum of four parts. Each part except the last 
must contain 25 questions, e.g., an 80 question test is numbered: 

Part 1 — Questions 1-25 
Part .2 — Questions 26-50 
Part 3 — Questions 51-75 
Part 4 — Questions 76-80 

To use EduTest, the teacher must also assign a unique two 
digit student number to each member of the class. Student num- 
ber 00 is reserved for the teacher and is used to identify' the key 
cards containing the correct answers. 

Key Card Preparation 

Key cards are prepared to input the correct answers to EduTest. 
To prepare key cards for EduTest: 

1. Leave the first Student Number columns blank. 

2. Mark the part number corresponding to that part of the 
test for which the key is prepared. 

3. In the second Student Number columns: 

• Place a mark through the EN in the word STUDENT. 

• Mark the 6 directly below this EN. 

• Mark the 9 in the next column. 

4. Mark the correct answers with a firm vertical mark within 
the appropriate box. 
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5. Repeat steps 1 through 4 for the remaining parts of the 
test. 

The following is a correctly marked key card for Part 1 . 



/ 



00 

m 



000 



m 
m 
m 

BE 



PUT1 

Qmitz 

[>UT 4 



•111 
00 

alia 



3J[3 
4l|4 



5] 15 
00 

SB 

mi 

u 



digital 

EDUSYSTEM TEST SCORING ANSWER CARD 



f 



010 

ap 

0j0@ 

siss 



01010 §fl@|§ 0I0H0 0HSI 




010 

010 

Ei@ 

„ ^g@|@ 

01010 

I I 

I I 



010 01000 0@0g 
0§0 @§0@0 0S0§ 
rap 01000 0§0| 

i@i@ @@@0@ @@0i 

010 010H0 01010 

I ■ 

I ■ 

ONLY ONE ANSWER PER QUESTION 

I I I II I I I I I I I III I I I I I Ml I I I I I I 



MARK 



1*3 

Mi 

W o 



5 

3i 



Student Answer Cards 

Each student answer card may contain a maximum of 25 test 
question answers. Cards must be marked in accordance with the 
following rules : 

1 . Use a Number 2 pencil 

2. Write name and class information on the right end of 
the card— STAY BELOW THE QUESTION 25 LINE 



RIGHT 

B eria ta sua 

00BEG] 
Effil. BEET'S] CEUB 



r Pprtm/ FooiaftM 






> 
so 
a 



COURSE Al&fK fl 2A WlJJ'Zf . 



-© 



WRONG 



> 
90 
O 



INSTRUCTOR 



S® El SB 133 

[m) (=] [H] S [S] [S3 

IHISSCS IB DE 




fM&gftg 



n-an 



3. To mark a box- 
box. 



-make a firm vertical mark within the 



00 
00 
00 
00 



RIGHT 

00000 
00000 
00000 
00000 



WRONG 



gf0 
ill* 



00000 

si sp.^i 
S0. m$m 



Mark Student Number in both Student Number columns. 
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Mark the appropriate part nutfBef box according to 
which part of the test is being answered: 

Questions 1-25 Parti 

Questions 26-50 Part 2 

Questions 5 1 -75 Part 3 

Questions 76- 1 00 Part 4 

Answering the test: 

• Cross out all unanswered questions by marking the 
corresponding boxes. 

NOTE 

EduTest rea^Sfthe answer/ carets i irv blocks 
of five questions. This technique necessitates 
crossing out any "left over" questions in a 
block. Giving an 1 8 question test means that 
the fourth block of answers (questions 16, 
17, 18, 19, and 20) is marked only through 
question 18. Students must be instructed 
to cross out questions 19 and 20. 

• Mark only ONE answer for each question, 

• Erase completely to change the answer. 

• Recheck the answer card to make certain that no col- 
umn contains two marks. 

Repeat the above procedure for each part of the test. 
Make no stray marks or doodling on the card. 

A correctly marked card for an 18 question test is illustrated 
below: 



7. 
8. 



H 



IBB 

m 

B0| 

il 



Q0'«n 

00D««4 



I I I I 



digital 

EDUSYSTEM TEST SCORING 

B|0|0 0I0IB §|S|§ 

01010 bibIb eIbIb 
slap @pp bIbIb 
Bpp bIejb bjbIb 

BplB BiBlB BiB|B 
I1B1@ BlUlii BIBlE 

■ I ■ 

■ I I 

MARK ONLY ONE ANSWER 

I I I I I I I I I I 1 I I I I I I I I 



ANSWER CARD 



Blifii BlBlg 
I 
I 

PER QUESTION 

I I I II I I I I I 



j 
1J 



@P1H @pp^S 
Blip B|Bil q ' 10 
ilBiB BIB 
BillB BIB 
BiBlB BiBiBhJ" 






M 



$-* 



U QZ Sjf 

I S S 
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OPERATING INSTRUCTIONS 
Storing EduTest 

The EduTest programs must be permanently stored on your 
EduSystem disc or DECtape before the EduTest System can be 
run. 

The following procedure stores the programs for use and must 
be performed only once for each EduSystem. 

1. Load EduSystem 30 according to the instructions in 
Chapter 7 for EduSystem 30 or Chapter 8 for EduSystem 
40. 

2. Type: NEW 

NEW FILE NAME— EDTEST 

3. EduSystem 30 responds with READY. 

Read EDTEST paper tape from the reader by typing 
TAPE. 

4. When reading is complete TTY responds with READY. 
Type: PRI 

Passford (password does not echo) 

5. Type: SAVE 

(EDTEST will be permanently stored on disc or DEC- 
tape). 

6. Repeat steps 2 through 5 for each of the following pro- 
grams: 

EDTST2 
EDTST3 
EDTST4 
EDTST5 
EDTST6 

7. Continue with the instructions in the section on Operating 
EduTest. 

Preparing EduTest Input 

Three control cards are required to run EduTest. These cards 
contain the marks for OLD EDTEST, LIST, and RUN. 

The OLD EDTEST control card is placed before the student 
answer cards; the answer cards are followed by the key cards, and 
the LIST and RUN control cards. The student answer cards may 
be in any sequence, i.e., they need not be in order by student 
number. 
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1. A card marked OLD EDTEST. 



"siottijiatei i it i .m 1 1 1 it i i i n i n n i i ! i i i t 

TlBBBfflBBQBfflBfBfflQQBESBHOEBElEBOQlBBBBffl! 

BB0BBBBBfflBQi[3HfflBBBH[IIQBBfflO]ffl(SHl[lBBBBBi 
I1I8BBBSSSSESBI3BSBBSBBBSSBBBBBBSBBBB! 

BBiaE^itlCMIlSipiilJPl^flaSBBBBBfflBffl j 
llBBBUimwOlIilliSlBllBlBBBBBBBBB 
SiBBBBBSBSBBBBBBBBBBBBBBBBBBBSBBBB 
!]Bli!Bi|lAmmiBBpn!!^IflBBBBBBBBBBB 

BBS0|Sflw5631SBr 
aiSBBBBBBBBBlBBBBBBB] 
HBBBBBBBBBB-BB-BIBBBBI 
SBHBBBSSSSBBBBBBSBB 
SSSBBSBSSSBSBSSBBBB 




Iii9iiiiiii i» ii3 m lis lit in nana 120121 122 123 124 



BBBBBBBBBBB 

STB1BBBBBBBBSBB 

BBBBBBBBBHBBB-BB 

BBBBSBBBBBBBBBB 

SBSBB'HBBBBBBBBB 

I25I26I27I28129I30I31I32I33I34I35136I3713II39I 



2. A card marked LIST. 






19 



BBBILEUUM0i| 

SBBBBSBBBBBBBBBSBBBBB 

SBBB|»A(pffl9|BB|l 

BBBBlWWltnlBBll 

IBIBBSSBBBSSBBSBBB 

ffliaBBEEBBBBSBBBBBI 

BIB 



I II M I I I I i I ! I I I t I I ! I I I ! I I M I I M I I 1 

BBEBEBBBEBEBEEEBQIEEQIBEBEEEEEQIEEEBE 
3SBBBEBBEEEEEBBBEEBBBEBEEEEQ1Q1BEBEE 
SBBBBSBBSBBBBBSBB8BBBBB8BBBBBBBBBB 

11 b a Bim 1 wm ©fins aa w ajflp s b b b b b b a b 

bbIIBIbbbbbbbbb 
ebbbsbbbssbb 

BBBBBBBBBBB 

BBBBBBBBBBB 

IBBSBBBBBBBS 

BBBBBHBBBBBB 

IlSSBBSSBBSBSBSSBBBBBIBBBSBBBBBSBBS 

_JBBBBSSSBBBBBSSS1BSBSBBBSBBMBSBSB 

5 It 17 1113 110111 112113 114 115 ntH7IUIUI2tl2H22l23124l25l26l27|28l29l3<)l31|32|33l34l35l3il37l3ll39l 




3. A card marked RUN. 



1 I I 1 ) 1 I 1 1 1 1 I 1 1 I — M It l I I 1 I 11 l t I 1 l I 1 

UBBEBSBEBEEEEEBEBEBQIBEBEEEBGIQIBEEEE 

ilBQIEBEBBEEEEBSBBBEBmBEEEEEEQIBBEEEE 

SBBSSBBSBSHSBBBBBBSBBBSSBSBBSBSBS 

BraBBiiiitt^ffiinip 

BiiEiilJQHiwIilllHBBiiBlBlBBBBBBB 
BBBBBBBBBBBSBBBBBBfflBBBBBIBBBBBBBB 
B B] B B B> AMHtIB B IS IHlffl! B B B B B B B H B B B 




BBBBDlM<EllmBB 

BBBBBBSBBBBBBBIBB1 

BBBBBEEBEBSESEBBBS] 

BBBBBSBSB'BSSBBSBSB 

BBBBBSSBSBSBSSHBBS 




BBBBBBBBBBB 
ilBlBSBBBBSBBBS 
BBBBBSBBBBSBBBB 
BBBBSBBBBBBBBBB 
BBBBBBBBBBBBBBB 



1 7 1 8 1 9 IIP 111 112 113 114 115 Hi 117 I18U9 120121 122123 l24l25l26l27Uai29IMI 31 132 >33l 341 35136 13 J 138 139 1 
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Arrange the control cards in the following order. 



Z 



£_ 



Z 



RUN 



YOUR KEY CARDS 



z 



STUDENT ANSWER CARDS 



'OLD EDTEST 



Operating EduTest 

If the computer is not currently reading cards, do the following: 

1. Place a blank card at the front of the desk of control 
cards, and place the answer cards and key cards deck in 
the card reader: 

• Face down 

• Top edges toward the front 

2. Turn the reader on and press the READY (or START) 
button. 

3. Turn the switch on the console Teletype to LINE. 

4. Hold down the CTRL key and strike C. 

5. Strike the RETURN key. 

6. Type SCRATCH and strike the RETURN key. 

7. The Teletype should respond with READY. (If not, re- 
peat steps 3 through 6. ) 

8. Type BATCH and strike the RETURN key. 

After the computer reads the deck of cards, it prints: 

OLD EDTEST, and then 
LIST 
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The computer then prints listing of the key cards and the stu- 
dent answer cards. (The program considers such input cards as 
data.) After all the DATA statements have been printed (State- 
ment #292 in the sample on page 16 is the last one), type 
CTRL/C. 

The computer types: 

RUN 

after reading the last control cards. 

Console Messages and Responses .. 

If EduTest detected errors or inconsistencies in the input data, 
error messages are printed as shown in Table D-l . 

Modifying EduTest 

As delivered, EduTest is dimensioned for 50 questions and 
35 students. Using' EduTest for more students and fewer ques- 
tions requires that the user redimension EDTST2, EDTST3, 
EDTST4 and EDTST5. The DIM statement in each of these pro- 
grams is line 140. 

To redimension EduTest type your entry in Entry column, Edu- 
Test in Response column: 

Entry Response 



OLD 


OLD FILE NAME 


EDTST2 


READY 


LISTNH140 


140 DIM K(50),N(36),R(5),V(50) 


SAVE 


CTRL/C 



Retype line 140 with the new subscripts, noting that N must be 
dimensioned 1 greater than the number of students^ and save the 
redimensioned version. Repeat with EDTST3, etc. 

Letting Q=# questions, and S=# students, the subscripted 
variables are: 



EDTST2 
EDTST3 
EDTST4 
EDTST5 



K(Q),N(S+1),R<5),V(Q) 
C(S),K(Q),R(5),T(S),V(Q) 
K(Q),A(25,6) 
E(Q),F(20),K(Q),T(S),V(Q) 
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Errors: SS Redimensioning not accomplished 

GS,SP Not enough room— use smaller groups of students 
or delete the V routines. 
EduSystem-30 utilizes only 4K words of core memory. This 
restricted program area limits EduTest to the following mixes of 
questions and students: 

25 questions x 50+students 

50 questions x 35 students 

75 questions x less than 10 students 

More space may be obtained by deleting the non-equal weighting 
routine, V(I) in all programs. 
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EDUTEST PROGRAMS 

The EduTest system is comprised of six programs: 

NAME FUNCTION 



EDTEST Reads answer cards and writes data onto 

disk or DECtape. 

EDTST2 Checks answer cards for inconsistent I.D. 

numbers, missing marks, etc. 

EDTST3 Produces the Student Response Matrix. 

EDTST4 Produces the Item Analysis. 

EDTST5 Produces the Question Analysis and Dis- 

tribution of Scores. 

EDTST6 Calculates the Statistical Measures, and 

Produces Grading, if desired. 

All programs make extensive use of multiple statements per 
line. The separator between statements on the same line is 
SHIFT/L which prints as \ on the teletype, and is shown as A 
on the sample listing. The following pages contain a listing of the 
BASIC programs that make up EduTest. Comments are limited 
to describing the function of sets of code. 

Sample Output 

The following copy is produced by the LIST card. Lines 1 and 
2 are the key cards, lines 101 and 102 are student number 10's cards 
for parts 1 and 2, etc. Note that the second student number in 
each line appears as DATA, and that Edu-30 BASIC, interprets 
the marks as : 



ed (crossed out) 




1 




Answers: 


A 

B 




2 
3 






C 


— 


4 






D 




5 






E 


— 


6 






Blank 


— 


no 


mark 



Note also that each block of five questions is read as one five digit 
number. 
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EDTEST EDU BASIC 



1 DATA -9,44326,22425,53524,52262,43342 

2 DATA -9/23456,54323,45654,32345,65432 

101 DATA 10,44322,22324,53523,42262,43452 

102 DATA 10,23356,54333,45654,32245,65432 

111 DATA 11,44326,22424,53524,52242,43242 

112 DATA 11,23456,54422,45654,32345,66432 

121 DATA 12,44325,22425,53523,52264,43342 ' 

122 DATA 12,23466,53322,45634,32345,66433 
2000 REM "EDTEST" FIRST PROGRAM IN EDUTEST 

2040 DIM N<550) 

2041 FOR 1=1 TO 550XREAD N<I)\IF N(I)=-2 THEN 2042NNEXT I 

2042 FOR J=l TO .1-1 WRITE N<d)\NEXT J 

2043 RESTOREVCHAIN "EDTST2" 

2045 DATA -1,-1,-1,-1,-1,-1,-2 

2046 END 



EDTEST EDU BASIC 



HOW MANY QUESTIONS IN THE TEST?50 

HOW MANY STUDENTS TOOK THE TEST? 3 yOUI rcs P onscs 
**********CHECKING ANSWER CARDS FOR MISSENTRIES. 
END OF CARD CHECK - SHALL WE GO ON <Y OR N)?Y 



ARE THE QUESTIONS EQUALLY WEIGHTED (Y OR N)?N 
ENTER THE WEIGHT FACTOR FOR EACH QUESTION. 

PART 1 

QUESTION # 1 ?2 
QUESTION 2 ?2 
QUESTION # 3 ?4 
QUESTION # 4 ?4 
QUESTION # 5 ?l 
QUESTION 6 ?2 
QUESTION # 7 ? 1 
QUESTION 8 ?2 
QUESTION # 9 ?2 
QUESTION # 10 ? 1 
QUESTION # 1 1 ?3 
QUESTION # 12 ?3 
QUESTION # 13 ?1 
QUESTION # 14 ?3 
QUESTION # 15 ?1 
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QUESTION 


# 


16 7 1 


QUESTION 


# 


17 ?2 


QUESTION 


# 


18 74 


QUESTION 


# 


19 71 


QUESTION 


# 


20 7 3 


QUESTION 


# 


21 72 


QUESTION 


# 


22 72 


QUESTION 


# 


23 7 1 


QUESTION 


# 


24 7 1 


QUESTION 


# 


25 7 1 


PART 2 






QUESTION 


# 


1 74 


QUESTION 


# 


2 73 


QUESTION 


# 


3 74 


QUESTION 


# 


4 72 


QUESTION 


# 


5 72 


QUESTION 


'# 


6 72 


QUESTION 


# 


7 72 


QUESTION 


# 


8 73 


QUESTION 


# 


9 74 


QUESTION 


# 


Id 72 


QUESTION 


# 


1 I 73 


QUESTION 


# 


12 73 


QUESTION 


# 


13 71 


QUESTION 


# 


14 7 1 


QUESTION 


# 


15 73 


QUESTION 


# 


16 73 


QUESTION 


# 


17 74 


QUESTION 


# 


18 72 


QUESTION 


# 


19 72 


QUESTION 


# 


20 72 


QUESTION 


# 


21 72 


QUESTION 


# 


22 7 3 


QUESTION 


# 


23 74 


QUESTION 


# 


24 7 2 


QUESTION 


# 


25 71 
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ITEM ANALYSIS 

-NUMBERS SHOWN ARE TO THE NEAREST PERCENT 
•CORRECT CHOICES ARE INDICATED BY * 













PART 1 










QUESTION 


ANSWER 


ANSWER 


ANSWER 


ANSWER 


ANSWER 


NO 


NUMBER 


A(X> 


B<*> 


C'<X) 


D<%> 


E(X> 


RESPONSE 


1 












100 


* 













2 












100 


* 













3 







100 


* 


















4 


100 


* 























5 


33 














33 




33 * 





6 


100 


* 























7 


100 


* 























8 







33 




67 


* 













9 


100 


* 























10 












67 




33 


* 








11 

















100 


* 








12 







100 


* 


















13 

















100 


* 








14 


100 


* - 























15 







67 




33 


* 













16 












33 




67 


* 








17 


100 


* 























18 


100 


* 























19 












33 









67 * 





20 


67 


* 







33 















21 












100 


* 













22 







100 


♦ 


















23 


33 




33 


* 


33 















24 












67 


* 


33 











25 100 * 
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PART 


' 2 












QUESTION 


ANSWER 


ANSWER 


ANSWER 


ANSWER 


ANSWER 


NO 


NUMBER 


A(X) 


B(%> 


C<%> 


D<X> 


E<%) 


RESPONSE 


1 


100 


* 

























2 







100 


* 




















3 







33 




67 


* 















4 

















67 


* 


33 







5 






















100 


* 





6 

















100 


* 










7 







33 




67 


* 















8 







67 


* 


33 

















9 


67 


* 


33 






















10 


67 




33 


* 




















S 1 












100 


* 















12 

















100 


* 










13 






















100 


* 





14 







33 









67 


* 










15 












100 


* 















16 







100 


* 




















17 


100 


* 

























18 


33 




67 


* 




















19 












100 


* 















20 

















100 


* 










21 






















100 


* 





22 

















33 


* 


67 







23 












100 


* 















24 







100 


* 




















25 


67 


* 


33 
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QUESTION ANALYSIS 



QUESTION 


VALUE 


PERCENT 


T I 


M E 


PART i 




CORRECT 






1 


1 .75 


100 





I 


2 


1 .75 


100 





I 


3 


3.51 


100 





I 


4 


3.51 


100 





I 


5 


.88 


33.3 


2 


I XX 


6 


1 .75 


100 





I 


7 


.88 


100 





I 


8 


1 .75 


66.7 


1 


IX 


9 


1 .75 


100 





I 


10 


.88 


33.3 


2 


I XX 


1 1 


2.63 


100 





I 


12 


2.63 


100 





I 


13 


.88 


100 





I 


14 


2.63 


100 





I 


15 


.88 


33.3 


2 


I XX 


16 


.88 


66.7 


1 


IX 


17 


1 .75 


100 





I 


18 


3.51 


100 





I 


19 


• 88 


66.7 


1 


IX 


20 


2.63 


66.7 


1 


IX 


21 


1 .75 


100 





I 


22 


1 .75 


100 





I 


23 


.88 


33.3 


2 


I XX 


24 


.88 


66.7 


1 


IX 


25 


.88 


100 





I 


PART 2 




CORRECT 






1 


3.51 


100 





I 


2 


2.63 


100 





I 


3 


3.51 


66.7 


1 


IX 


4 


1 .75 


66. 7 


1 


IX 


5 


1 .75 


100 





I 


6 


1 .75 


100 





I 


7 


1 .75 


66.7 


1 


IX 


8 


2.63 


66.7 


1 


IX 


9 


3.51 


66.7 


1 


IX 


10 


1 .75 


33.3 


2 


I XX 


1 1 


2.63 


100 





I 


12 


2.63 


100 





I 


13 


.88 


100 





I 


14 


.88 


66.7 


1 


IX 


15 


2.63 


100 





I 


16 


2.63 


100 





I 


17 


3.51 


100 





I 


18 


1 .75 


66.7 


1 


IX 


19 


1 .75 


100 





I 


20 


1 .75 


100 





I 


21 


1 .75 


100 





I 


22 


2.63 


33.3 


2 


I XX 


23 


3.51 


100 





I 


24 


1 .75 


100 





I 


25 


.88 


66.7 


1 


IX 



Note the actual decimal 
value assigned to each 
response as a result 
of J:he individualized 
weighting factors. 



This chart gives you 
the quickest look at 
what the most difficult 
questions were. 
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DISTRIBUTION OF SCORES 

RANGE NUMBER 

100 l 

95 TO 99.99 * 

90 TO 94.99 1 IX 

85 TO 89.99 1 1X 

80 TO 84.99 1 IX 

75 TO 79.99 1 

70 TO 74.99 1 

65 TO 69.99 1 

60 TO 64.99 x 

55 TO 59.99 * 

50 TO 54.99 * 

45 TO 49.99 * 

40 TO 44.99 * 

35 TO 39.99 l 

30 TO 34.99 I 

25 TO 29.99 * 

20 TO 24.99 * 

15 TO 19.99 1 

10 TO 14.99 x 

5 TO 9.99 J 

TO 4.99 J 

STATISTICAL MEASURES 

...THE MEAN (AVERAGE) SCORE IS 86.8419 

I THE MEDIAN (MIDDLE) SCORE IS 85.965 

..........THE STANDARD DEVIATION IS 2.58237 

DO YOU WISH TO SPECIFY GRADES (Y OR N)?Y 

A FOR THOSE SCORES EQUAL TO OR GREATER THAN? 95 
B FOR REMAINING SCORES EQUAL TO OR GREATER THAN785 
C FOR REMAINING SCORES EQUAL TO OR GREATER THAN? 75 
D FOR REMAINING SCORES EQUAL TO OR GREATER THAN?0 



GRADE 


NUMBER- 




A 





I 


B 


2 


I XX 


C 


1 


IX 


D 





I 


F 





I 
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DO YOU WISH TO RESPECIFY THE GRADES (Y OR N)?Y 

A FOR THOSE SCORES EQUAL TO OR GREATER THAN? 85. 965 
B FOR REMAINING SCORES EQUAL TO OR GREATER THAW 80 
C FOR REMAINING SCORES EQUAL TO OR GREATER THAN760 
D FOR REMAINING SCORES EQUAL TO OR GREATER THAN'30 



GRADE 


NUMBER 




A 


l v 


IX 


B 


2 


I XX 


C 





I 


D 





I 


F 





I 



DO YOU WISH TO RESPECIFY THE GRADES (Y OR N)?N 

A GRADES ARE: 
STUDENT #11 

B GRADES ARE: 
STUDENT # 10 
STUDENT # 12 

C GRADES ARE: 

D GRADES ARE: 

F GRADES ARE: 



THIS IS THE END OF THE EDUTEST RUN. 
THANK YOU. 
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EDTEST 



The key cards and the student answer cards are imbedded in 
EDTEST as a mass of data statements. EDTEST is just the barest 
of programs necessary to read and write this data onto the disk 
(DECtape) and CHAIN to the next program, EDTST2. This 
technique allows EDTST2 to have much more 'working' program 
and to pull in data as it is required. 

The 4K version of EduSystem-30 allows either 6,000 char- 
acters of program and no variables, 600 variables and no pro- 
gram, or some trade-off in between. 

This version of EduTest allows you approximately: 



2P00 REM "EDTEST" FIRST PROGRAM IN E0UTEST 

2010 REM COPYRIGHT 1972 DIGITAL EQUIPMENT CORPORATION 

2020 REM MAYNARD, MASSACHUSETTS 

2030 REM EDUSYSTEM8 30 AND 40 

2040 DIM N(550) 

2041 FOR I»l TO 550NREAO NtI)\IF N(I)»-2 THEN 2042\NEXT I 
20<*2 FOR J«l TO I-t\WRITE N(J)\NEXT J 

2043 RESTOREVCHAIN "EDTST2" 

2045 DATA -1,-1,-1, •1,-1.-1,-2 

2046 END 



25 questions x 50+ students 
50 questions x 35 students 
, 75 questions x less than 10 students. 

The quickest way to significantly expand these limits is to delete 
the Unequal Weighting Option of EDTST2 and all handling of 
V(l) thereafter. If done, 100/Q is the value of each question. 
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A (alphanumeric) format specifica- 
tion, FORTRAN-D, 9-124 

Abbreviated commands, 
EduSystem 20, 5-2 
EduSystem 25, 6-2 

Absolute value function 
ABS, BASIC, 1-29 
FABS, FOCAL, 9-85 

Account (ACT), 9-199 

ACCEPT statement, FORTRAN-D, 
9-120 

Address: A label, name, or number 
which designates a location where 
information is stored. 

Advanced Monitor commands, Edu- 
System-50, 9-167 

Advanced system capabilities, Edu- 
System 15, 4-6 

Alphanumeric: Pertaining to a char- 
acter set that contains both letters 
and numerals, and usually other 
characters. 

ALT MODE key, FOCAL, 9-67 

Apostrophe used to start comment, 
EduSystem 25, 6-4 

Arctangent function (FATN), FO- 
CAL, 9-84 

Argument: 

1. A variable or constant which 
is given in the call of a sub- 
routine as information to it. 

2. A variable upon whose value 
the value of a function de- 
pends. 

3. The known reference factor 
necessary to find an item in a 
table or array (i.e., the index). 

Arithmetic expressions, FORTRAN- 

D, 9-107 
Arithmetic operation, FOCAL, 9-64 
Arithmetic operations summary, 8- 

10 
Arithmetic operators, FORTRAN-D, 

9-105 



Arithmetic statements, FORTRAN- 
D, 9-108 

Array : A set or list of elements usu- 
ally variables or data. 

ASCII character codes, B-l 

ASK command, FOCAL, 9-67 

Assemble: To translate from a sym- 
bolic program to a binary pro- 
gram by substituting binary opera- 
tion codes for symbolic operation 
codes and absolute or relocatable 
addresses for symbolic addresses. 

Assembler: A program which trans- 
lates symbolic operation codes 
into machine language and as- 
signs memory locations for vari- 
ables and constants. 

Assembly language programs, Edu- 
System 50, 9-179 

ASSIGN command, EduSystem 50, 
9-13 

Assign Device (ASD), 9-191 

B 

BASIC 

calling, 9-23 

error messages, EduSystem 50, 9-56 
exponents, 1-19 

expressions for mathematical rela- 
tionships, 1-79 
file transfers, 9-160 
floating point notation, 1-15, 1-16 
functions, 1-57 
incrementing variable, 1-50 
line number, 1-7 
locations, 1-20 
looping, 1-39, 1-45 
numerical expressions, 1-9 
printing messages, 1-17 
random numbers, 1-89 
stepping, 1-50 
subroutines, 1-105 
variable expressions, 1-24 
variable subscripts, 1-102 
variables, 1-20 
BASIC commands 
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BATCH, 7-30, 7-31 

BYE, 9-21 

CATALOG, 4-5, 6-15, 7-16, 9-29 

CATS, 6-17 

COMPILE, 9-27 

CTRL/B, 9-20 

CTRL/C, 1-30 

DELETE, 5-15, 6-29 

ECHO, 4-26, 7-14 

EDIT, 5-15; 6-29, 8-2,9-26 

FILELOG, 6-21 

FILELOGS, 6-22 

HEADER, 7-32 

KILL, 6-22 
KEY, 5-22, 6-39, 7-51 
LENGTH, 4-6, 7-16 
LIST, 1-6, 4-3, 7-12 
LISTNH, 4-3, 7-13 
LLIST, 9-47 
LOG, 7-33 
LPT, 7-50 
MAX, 7-31 
NAME, 4-2, 7-14 
NEW, 4-2, 6-13, 7-14, 9-23 
NOLINE, 4-6, 7-5 
OLD, 4-5, 6-14, 7-14, 7-17, 9-23 
OLD$, 6-17 
PASSWORD, 4-5, 7-16 
PRIVILEGE, 4-4, 7-15 
PTP, 5-22 
PTR, 5-22 
PUNCH, 7-50 
RENAME, 6-14 
REPLACE, 9-27 
RESEQUENCE, 7-18 
RUN, 1-5, 4-4 
RUN NH, 4-4, 7-13 
SAVE, 4-5, 6-14, 7-16, 9-27 
SCRATCH, 1-5 
STACK, 7-32, 7-33 
Summary, 1-139 to 1-143 
TAPE, 4-26, 5-22, 6-39, 7-14, 7-51 
TTY, 4-26 

UNSAVE, 4-5, 6-16, 7-14, 9-56 
BASIC functions 
Absolute value (ABS), 1-129 
Arctangent (ATN), 1-130 
Character conversion (CHR$), 4- 

10, 5-9, 6-11,7-9,9-36 
Concatenate (CAT), 6-13 
Cosine (COS), 1-130 



Exponential (EXP), 1-128 

Integer (INT), 1-57, 1-58 

LEN, 6-13 

LOG, 1-128 

MID, 6-12 

Random (RND), 1-90 

Sign (SGN), 1-129 

Sine (SIN), 1-130 

Square root (SQR), 1-61 

Summary, 1-144 

Tabulate (TAB), 1-86 

Tangent (TAN), 1-130 

Truncation (FIX), 5-9, 6-8, 9-24 
BASIC statements 

CHAIN, 4-6, 6-15, 7-6, 8-4, 9-37 

CHAINS, 6-18 

CHANGE, 9-34 

CLOSE, 6-20, 9-42, 9-46 

DATA, 1-32 

DEF, 1-131 

DIM, 1-114,5-7,8-3 

END, 1-5, 1-7 

FOR, 1-45 STEP clause, 1-50 

GET, 9-40 

GOSUB, 1-105 

GOTO, 1-30 

IF GO TO, 1-136 

IF THEN, 1-79, 5-8, 6-5, 8-3 

INPUT, 1-26, 2-4, 3-5, 4-9, 5-6 

INPUT#, 6-20 

LET, 1-23, 1-40 

LINPUT, 6-10, 9-32 

LPRINT, 9-47 

NEXT, 1-45 

ON GOSUB, 5-10, 6-6, 8-3 

ON GO TO, 5-10, 6-6, 8-3, 9-24 

OPEN, 6-18, 6-20, 9-40, 9-44, 

ELSE clause, 9-45 
PRINT, 1-5, 1-11, 1-12, 1-18 
PRINT#, 6-19 
PUT, 9-40 

RANDOMIZE, 4-3, 5-11, 6-7, 7-5 
READ, 1-32 
RECORD, 9-39, 9-43 
REMARK, 1-113,5-6,9-25 
RESTORE, 1-36 
RESTORE*, 9-30 
RESTORES, 9-30 
RETURN, 1-105 
SLEEP, 9-24 
STOP, 1-105 
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Summary, 1-134 through 1-138 
WRITE, 4-8, 7-7 
BASIC summaries 
EduSystem 5,2-11 
EduSystem 10, 3-5 
EduSystem 15, 4-26 
EduSystem 20, 5-2 
EduSystem 25, 6-23 
EduSystem 30, 7-2 
EduSystem 40, 8-4 
EduSystem 50, 9-56 
BASIC template, 7-21 
BATCH command, 7-29, 7-31, 7-33 
Batch system, 8-3 
control cards summary, 8-8, 8-9 
errors, 7-34 
operation, 7-29 
program loading errors, 8-12 
Binary: Pertaining to the number 

system with a radix of two. 
Binary code: A code that makes use 
of exactly two distinct characters, 
Oand 1. 
BIN format file transfers, 9-159 
Bit: A binary digit. In the PDP-8 
computers, each word is composed 
of 12 bits. 
Block: A set of consecutive machine 
words, characters, or digits han- 
dled as a unit, particularly with 
reference to I/O. 
Bootstrap: A technique or device 
designed to bring a program into 
the computer from the input de- 
vice. 
Branch: A point in a routine where 
one of two or more choices is 
made under control of the routine. 
Buffer: A storage area. 
Bug: A mistake in the design or im- 
plementation of a program. 
Building EduSystem 40 on disk, 8-16 
Byte: A group of binary digits usu- 
ally operated upon as a unit. 



Call: To transfer control to a speci- 
fied routine. 
Card program, EduSystem 30, 7-18 

editing, 7-27 

execution, 7-29 



loading, 7-13 

running, 7-23 

writing, 7-18 

summary, 7-24 
Cards 

DATA, 7-26 

KEY, 7-27 

LIST, 7-24, 7-26 

MSG, 7-28 

NEW, 7-23, 7-26 

OLD, 7-23, 7-26 

OPR, 7-27 

RUN, 7-24, 7-26 
CATALOG command 

EduSystem 15, 4-5 

EduSystem 25, 6-15 

EduSystem 30, 7-16 

EduSystem 50, 9-29 
CAT function, EduSystem 25, 6-13 
CATALOG program, 9-153 
Chained program: A program that 
has been broken into more than 
one piece. 
CHAIN statement 

EduSystem 15, 4-6 

EduSystem 25, 6-15 " 

EduSystem 30, 7-6 

EduSystem 50, 9-37 
CHANGE statement, EduSystem 50, 

9-34 
Character: A single letter, numeral, 
or symbol used to represent infor- 
mation. 
Character codes, ASCII, B-l 
Character-handling feature, 8-4 
Character set, FORTRAN-D, 9-100 
Character variables 

EduSystem 15, 4-8 

EduSystem 30, 7-8 
Check Status (CKS), 9-197 
CHR$ function, 

EduSystem 15, 4-10 

EduSystem 20, 5-9 

EduSystem 25,6-11 

EduSystem 30, 7-9 

EduSystem 50, 9-36 
Close a File (CLOS), 9-187 
CLOSE statement 

EduSystem 25, 6-20 

EduSystem 50, 9-42, 9-46 
Codes, device, 6-33 
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Coding: Instructions written for a 
computer using symbols meaning- 
ful to the computer or to an as- 
sembler, compiler, or other lan- 
guage processor. 

Coding errors 
EduSystem 15, 4-13 
EduSystem 30,7-36, 8-13 to 8-15 

Command: A user order to a com- 
puter system, usually given through 
a Teletype keyboard. 

Commands, see specific program or 
system 

Commands, privileged, 7-14 

Comments, EduSystem 50, 9-25 

Comment statements, FORTRAN-D, 
9-99 

Compile: To produce a binary -coded 
program from a program written 
in source (symbolic) language, by 
selecting appropriate subroutines 
from a subroutine library, as di- 
rected by the instructions or other 
symbols of the source program. 
The linkage is supplied for com- 
bining the subroutines into a 
workable program, and the sub- 
routine and linkage are translated 
into binary code. 

COMPILE command, EduSystem 
50, 9-27 

Compiler: A program which trans- 
lates statements and formulas 
written in a source language into 
a machine language program, e.g., 
a FORTRAN compiler. Usually 
generates more than one machine 
instruction for each statement. 

Concatenation, EduSystem 25, 6-13 

Console (CON), 9-199 

Console I/O, EduSystem 50, 9-180 

Constants, FORTRAN-D, 9-100 

CONTINUE command, FOCAL, 9- 
74 

CONTINUE statement, FORTRAN- 
D, 9-117 

Continuation character, FORTRAN- 
D, 9-98 

Control characters, FOCAL, 9-87 

Control commands, FOCAL, 9-68 

COPY program, EduSystem 50, 9- 
161 



calling, 9-162 
option summary, 9-165 
Core memory: The main high-speed 

storage of a computer in which 

binary data is represented by the 

switching polarity of magnetic 

cores. 
Core partitioning, EduSystem 25, 

6-33 
Cosine function (FCOS), FOCAL, 

9-83 
Create a File (CRF), 9-185 
CREATE command, EduSystem 50, 

9-170 



Data: A general term used to de- 
note any or all facts, numbers, 
letters, and symbols. It connotes 
basic elements of information 
which can be processed or pro- 
duced by a computer. 
DATA cards, 7-26 
Data files 
DECtape, EduSystem 50, 9-43 
disk, EduSystem 50, 9-38 
EduSystem 30, 7-6, 8-4 
storage retrieval, EduSystem 25, 6- 

18 
tape, EduSystem 25, 6-37 
Data formats, FORTRAN-D, 9-119 
DATA statements, BASIC, 1-32 
Date (DATE), 9-200 
Debug: To detect, locate, and cor- 
rect mistakes in a program. 
Debugging 
FOCAL, 9-81 
with ODT, 9-150 
DECdisk initialization, 8-16 
DECtape data files, EduSystem 50, 
9-43 
with OS/8 FORTRAN, 9-46 
DECtape file protection, 6-39 
DECtape files loaded with COPY, 

9-162 
DECtape unit loading, EduSystem 

15, 4-17 
DEFINE DISK statement, FOR- 
TRAN-D, 9-121 
DEF statement, BASIC, 1-131 
DELETE command 
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EduSystem 20, 5-15 

EduSystem 25, 6-29 

Deleting 

disk files, 9-160 

files with COPY, 9-164 

Device codes, 6-33 

Devices, assignable, EduSystem 50, 
9-190 

Digit: A character used to represent 
one of the non-negative integers 
smaller than the radix, e.g., in 
binary notation, either or 1. 

Digital computer: A device that op- 
erates on discrete data, perform- 
ing sequences of arithmetic and 
logical operations on this data. 

DIMENSION statement, FOR- 
TRAN-D, 9-104 

DIM statement, BASIC, 1-114 

Disk data files, EduSystem 50, 9-38, 
9-169 to 9-171 

Disk I/O, EduSystem 50, 9-183 

Disk to paper tape transfers, 9-158 

Dollar sign ($) preceding variable 
name, 7-8, 8-4 

DO command, FOCAL, 9-71 

DO statement, FORTRAN-D, 9-115 

Double subscripts, FORTRAN-D, 
9-128 

Dummy: Used as an adjective to in- 
dicate an artificial address, instruc- 
tion, or record of information in- 
serted solely to fulfill prescribed 
conditions, as in "dummy" vari- 
able. E.g., in the BASIC function 
RND(x) where x has no signifi- 
cance. 

Duplex (DUP), 9-182 

E 

ECHO command 

EduSystem 15, 4-26 

EduSystem 30, 7-14 
Edit and control commands, BASIC, 

1-139 
EDIT command, 

EduSystem 20, 5-15 

EduSystem 25, 6-29 

EduSystem 40, 8-2 

EduSystem 50, 9-26 
Edit commands, FOCAL, 9-75 



Editor, symbolic, EduSystem 50„ 9- 

145 
EDIT program, EduSystem 50, 9- 

145 
EduSystem: A combination of sys- 
tem components and instructional 
materials designed specifically for 
classroom use. 
EduSystem 5, 2-1 
BASIC language capabilities, 2-2 
error messages, 2-6 
operating instructions, 2-6 
program editing, 2-6 
EduSystem 10, 3-1 
BASIC language capabilities, 3-2 
error messages, 3-7 
operating instructions, 3-9 
program editing, 3-6 
EduSystem 15, 4-1 
advanced system capabilities, 4-6 
BASIC language capabilities, 4-2 
error messages, 4-12 
operating instructions, 4-16 
program editing, 4-11 
EduSystem 20, 5-1 
BASIC language capabilities, 5-2 
error messages, 5-12 
operating instructions, 5-16 
program editing, 5-14 
EduSystem 25, 6-1 
BASIC language capabilities, 6-2 
error messages, 6-26 
extended system capabilities, 6-8 
operating instructions, 6-31 
program editing, 6-28 
EduSystem 30, 7-1 
BASIC language capabilities, 7-2 
card program execution, 7-29 
card programs, writing and run- 
ning, 7-18 
error messages, 7-34 
interactive terminal, 7-11 
operating instructions, 7-38 
EduSystem 40, 8-1 
BASIC language capabilities, 8-2 
error message summaries, 8-10 
language summaries, 8-4 
loading and operating instructions, 
8-16 
EduSystem 50, 9-1 
BASIC language capabilities, 9-23 
FOCAL language capabilities, 9-61 
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FORTRAN-D language capabili- 
ties, 9-95 
internal character set, 9-192 
IOT instruction summary, 9-202 
Monitor, 9-4 

Monitor command summary, C-l 
storage allocation, 9-205 
symbol list, 9-139 
system expansion, 9-4 
system library programs, 9-17 
EduSystem 50 Monitor commands 
ASSIGN, 9-13 
CLOSE, 9-170 
CREATE, 9-170 
LOAD, 9-175, 9-177 
LOGIN, 9-6 
LOGOUT, 9-8 
OPEN, 9-170 
R (Run), 9-177 
RELEASE, 9-15 
SAVE, 9-174 
SYSTAT, 9-12 
TALK, 9-11 
TIME, 9-12 
EduSystem 50 system library pro- 
grams 
BASIC, 9-23 
CAT, 9-153 
COPY, 9-162 
EDIT, 9-145 
FOCAL, 9-61 
FORTRAN-D, 9-95 
LOADER, 9-149 
ODT, 9-151 
PAL-D, 9-137 
PIP, 9-157 

SYSTAT (System status), 9-154 
EduSystem 55, 9-3 
Edutest, EduSystem 30-40, D-l 
data file layout, D-39 
error messages, D-10 
modification, D-8 
operating instructions, D-5 
programs, D-l 3 
E (exponential) format specifica- 
tion, FORTRAN-D, 9-126 
END statement 
BASIC, 1-5, 1-7 
FORTRAN-D, 9-111 
ERASE ALL command, FOCAL, 

9-76 
ERASE command, FOCAL, 9-76 



Error checking, FORTRAN-D, 9- 

130 
Error diagnostics, 

FOCAL, 9-81 

FORTRAN-D, 9-133 

PAL-D, 9-142 
Error messages 

BASIC, EduSystem 50, 9-51 

Batch mode program loading, 8-12 

EduSystem 5, 2-5 

EduSystem 10, 3-7 

EduSystem 15, 4-12 

EduSystem 20, 5-12, 8-10, 8-11, 8- 
15,8-16 

EduSystem 30, 7-34, 8-12 through 
8-15 

FOCAL, 9-93 

interactive mode program loading, 
8-13 
Execute: To carry out an instruc- 
tion or run a program on the 

computer. 
Exponential function 

EXP, BASIC, 1-128 

EXPF, FORTRAN-D, 9-111 

FEXP, FOCAL, 9-84 
Exponents, BASIC, 1-19 
Expressions, variable, BASIC, 1-24 
Extend a File (EXT), 9-185 
Extended system capabilities, Edu- 
System 25, 6-8 



File: A collection of related records 

treated as a unit. 
File characteristics, EduSystem 50, 

9-18 
File deletion with COPY, 9-164 
File directories, EduSystem 50, 9- 

205 
File Information (FINF), 9-190 
FILELOG command, EduSystem 25, 

6-21 

Filename: Alphanumeric characters 
used to identify a particular file. 

Filename extension: A short append- 
age to the filename used to iden- 
tify the type of data in the file; 
e.g., BIN, signifying a binary pro- 
gram. 

Filename extension, 6-14 
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File protection, EduSystem 50, 9-27 

Files, disk, EduSystem 50, 9-170 

Files and disk I/O, EduSystem 50, 
9-183 

Files also see "DECtape" and "Disk" 

File transfers 
BASIC, 9-160 
BIN format, 9-159, 
disk files, 9-159 

FIX function, EduSystem 20, 5-9 

Floating point: A form of number 
representation in which quanti- 
ties are represented by a number 
multiplied by the number base 
raised to a power. 

Floating point numerals, BASIC, 1-15 

Flowchart: A graphical representa- 
tion of the operations required to 
carry out a data processing opera- 
tion. 
Flowchart, 1-65 

FOR-NEXT loops, 1-71 
FOCAL, 9-61, 9-62 

arithmetic operations, 9-64 

calling, 9-61 

computational command, 9-68 

control commands, 9-68 

debugging, 9-81 

edit commands, 9-75 

error messages, 9-93 

functions, 9-82, 9-92 

I/O commands, 9-66 

library commands, 9-78 

output operations, 9-86 

paper tape reading, 9-88 

program length, 9-80 
FOCAL commands 

ASK, 9-67 

CONTINUE, 9-74 

DO, 9-71 

ERASE, 9-76 

ERASE ALL, 9-76 

FOR, 9-72 

GO, 9-68 

GO TO, 9-69 

IF, 9-69 

LIBRARY CALL, 9-78 

LIBRARY DELETE, 9-79 

LIBRARY SAVE, 9-78 

MODIFY, 9-76 

QUIT, 9-72 

RETURN, 9-72 



SET, 9-68 

summary, 9-90 

TYPE, 9-66 

WRITE, 9-74, 9-75 

WRITE ALL, 9-75 
FOCAL functions 

absolute value (FABS), 9-85 

arctangent (FATN), 9-84 

cosine (FCOS), 9-83 

exponential (FEXP), 9-84 

integer part (FITR), 9-86 

logarithm (FLOG), 9-84 

random number (FRAN), 9-86 

sign part (FSGN), 9-85 

sine (FSIN), 9-83 

square root (FSQT), 9-85 
FOR command, FOCAL, 9-72 
Format: The arrangement of data. 
Format control specifications, FOR- 

TRAN-D, 9-127 
FOR-NEXT loop, BASIC, 1-45 

in flowcharts, 1-71 
FOR statement, 1-45 
FORTRAN-D..9-95 

arithmetic, 9-105 
calling, 9-95 
. error diagnostics, 9-133 
1/0,9-118 
line format, 9-97 
program control, 9-111 
service program restrictions, 9-131 
statements, 9-99 
FORTRAN-D functions, 9-110 
FORTRAN-D statements 
ACCEPT, 9-120 
CONTINUE, 9-117 
DEFINE DISK, 9-121 
DIMENSION, 9-104 
DO, 9-115 
GOTO, 9-112 
IF, 9-113 
IND, 9-111 
PAUSE, 9-112 
READ, 9-121 
STOP, 9-111 
TYPE, 9-120 
WRITE, 9-121 
Functions 
BASIC, 1-57, 1-128 to 1-130, 1-144 
FOCAL, 9-82, 9-92 
FORTRAN-D, 9-110 
see also the specific program 
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GET statement, EduSystem 50, 9-40 
GO command, FOCAL, 9-68 
GOSUB statement, BASIC, 1-105 
GO TO command, FOCAL, 9-69 
GO TO statement 

BASIC, 1-30 

FORTRAN-D, 9-112 

H 

Halt (HLT), 9-196 

Hardware: Physical equipment, e.g., 
mechanical, electrical, or elec- 
tronic devices. 

HEADER command, 7-32 

Heading, BASIC program to print, 
1-37 

High-speed paper tape reader/punch, 
7-50 

High-speed reader/punch assign- 
ments, 9-158 

Hollerith output, FORTRAN D, 
9-127 



IF command, FOCAL, 9-69 
IF statement 
BASIC, 1-79 
FORTRAN-D, 9-113 
IF THEN statement 
EduSystem 20, 5-8, 8-3 
EduSystem 25, 6-5 _ 
I (integer) format specification, 

FORTRAN-D, 9-125, 9-126 
Immediate mode 
EduSystem 5, 2-3 
EduSystem 10, 3-3 
EduSystem 20, 5-5 
EduSystem 25, 6-3 
Initializing the DECdisk, EduSys- 
tem 40, 8-16 
Input formats, FORTRAN-D, 9-125 
INPUT statement, BASIC, 1-26 
INPUT # statement, EduSystem 25, 

6-20 
Input/ Output commands, FOCAL, 

9-66 
Input/ Output, FORTRAN-D, 9-118, 

9-119 
Input/ Output statements, variable 
specification in, FORTRAN-D, 
9-121 



Instruction: A command which 
causes the computer or system to 
perform an operation. Usually one 
line of a source program. 

Integer (INT) function, BASIC, 
1-57, 1-58 

Integer part function (FITR), FO- 
CAL, 9-85 

Interactive mode program loading 
errors, EduSystem 30, 7-35, 8-12, 
8-13 

Interactive terminal, EduSystem 30, 
7-11 

Internal character set, EduSystem 
50, 9-192 

Internal data codes, EduSystem 50, 
9-48 

I/O, see Input/output 

IOT instruction summary, EduSys- 
tem 50, 9-202 



Jump: A departure from the normal 
sequence of executing instructions 
in a computer. 

K 

K: An abbreviation for the prefix 
kilo, i.e., 1000 in decimal nota- 
tion. 

Keyboard, Teletype, 1-3 

KEY card, 7-27 

KEY command, EduSystem 30, 7-51 

KILL command, EduSystem 25, 6-22 



Language, assembly: The machine 
oriented programming language 
used by an assembly system, e.g., 
PAL-D. 
Language capabilities, BASIC 

EduSystem 5, 2-2 

EduSystem 10, 3-2 

EduSystem 15, 4-2 

EduSystem 20, 5-2 

EduSystem 25, 6-2 

EduSystem 30, 7-2 

EduSystem 40, 802 

EduSystem 50, 9-23 
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Language, computer: A systematic 
means of communicating instruc- 
tions and information to the com- 
puter. 

Language, machine: Information that 
can be directly processed by the* 
computer, expressed in binary no- 
tation. 

Language, source: A computer lan- 
guage such as FOCAL, in which 
programs are written and which 
requires extensive translation in 
order to be executed by the com- 
puter. 

LEN function, EduSystem 25, 6-13 

LENGTH command, BASIC 

EduSystem 15,4-6 
1 EduSystem 30, 7-16 

LET statement, BASIC, 1-23, 1-40 

LIBRARY CALL command, FO- 
CAL, 9-78 

Library commands, FOCAL, 9-78 

LIBRARY DELETE command, FO- 
CAL 9-78 

LIBRARY LIST command, FOCAL, 
9-79 

LIBRARY SAVE command, FO- 
CAL, 9-78 

Line format, FORTRAN-D, 9-97 

Line number: In- source languages 
such as FOCAL, BASIC, and 
FORTRAN, a number which be- 
gins a line of the source program 
for purposes of identification. 

Line numbers, BASIC, 1-7 

LINPUT statement 
EduSystem 25, 6-10 
EduSystem 50, 9-32 

LIST card, 7-24 

LIST command, BASIC, 1-6 

Listing directories with COPY, 9-163 

LISTNH command, EduSystem 15, 
4-3 

EduSystem 15, 4-3 
EduSystem 30,7-13 

LLIST statement, EduSystem 50, 9- 
47 

LOAD command, EduSystem 50, 9- 
175 

LOADER program, EduSystem 50, 
9-149 

Loading files from DECtape with 



COPY, 9-162 
Loading the system 
EduSystem 15, 4-16 
EduSystem 20, 5-16 
EduSystem 25, 6-31 
EduSystem 30, 7-38 
EduSystem 40, 8-16 
Load Punch Buffer Sequence (PLS), 

9-193 
Load Status Register A (DTXA), 

9-194 
Load Teleprinter Sequence (TLS), 

9-181 
Location: A place in storage or 

memory where a unit of data or 

an instruction may be stored. 
Location, BASIC, 1-20 
Logarithm function (FLOG), FO- 
CAL, 9-84 
LOG command, EduSystem 30, 7-33 
LOG function, BASIC, 1-128 
LOGIN command, EduSystem 50, 

9-6 
LOGOUT command, EduSystem 50, 

9-8 
LOGOUT options, EduSystem 50, 

9-10 
Loop: A sequence of instructions 

that is executed repeatedly until a 

terminal condition prevails. 
Loops, BASIC, 1-39, lr71 

nested, 1-56 
LPRINT statement, EduSystem 50, 

9-47 
LPT command, EduSystem 30, 7-50 
LP08 Line Printer, 7-50 

M 

Mark cards, 8-3 

Mass storage: Pertaining to a device 
such as disk or DECtape which 
stores large amounts of data 
readily accessible to the computer. 

Mathematical expression, BASIC, 
1-9 

Matrix: A rectangular array of ele- 
ments. Any table can be con- 
sidered a matrix. 

MAX command, 7-31 

Memory: 

1. The alterable storage in a com- 
puter. 
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2. Pertaining to a device in which 
data can be stored and from 
which it can be retrieved. 
Messages, printing BASIC, 1-17 
MID function, EduSystem 25, 6-12 
MODIFY command, FOCAL, 9-76 
Monitor: The master control pro- 
gram that observes, supervises, 
controls, or verifies the operation 
of a system. 
Monitor, 6-32 

Monitor command summary, Edu- 
System 50, C-l 
Monitor, EduSystem 50, 9-4 
calling, 9-4 
error messages, 9-16 
program control commands, 9-169 
returning to, 9-23 
utility commands, 9-177, 9-178 
MSG card, 7-28 
Multiple statements per line 
EduSystem 5, 2-2 
EduSystem 10, 3-2 
EduSystem 20, 5-4 
EduSystem 25, 6-2 
EduSystem 30, 7-12 
EduSystem 50, 9-26 
Multiuser BASIC, 8-3 
Multiuser system 
EduSystem 20, 5-1 
EduSystem 25, 6-1 

N 

NAME command, BASIC 
EduSystem 15, 4-2 
EduSystem 30, 7-16 
Nested loops, BASIC, 1-56 
Nesting: 

1. Including a program loop 
within another program loop. 
Special rules apply to the nest- 
ing of FORTRAN D DO 
loops. 
°2. Algebraic nesting, such as 
(A+B*(C+D)), where exe- 
cution proceeds from the in- 
nermost to the outermost level. 
Nesting of DO loops, FORTRAN-D, 

9-116 
NEW card, 7-23, 6-26 
NEW Command, BASIC 



EduSystem 15, 4-2 

EduSystem 25, 6-13 

EduSystem 30, 7-16 
NEXT statement, BASIC, 1-45 
NOLINE command, BASIC 

EduSystem 1 5, 4-6 

EduSystem 30, 7-5 
Numbers, FOCAL, 9-63 
Numbers, random, 1-89 
Numerals, floating point, BASIC, 

1-15 
Numerical expressions; BASIC, 1-9 

O 

Object program: The binary coded 
program which is the output after 
translation of a source language 
program. 
Octal: Pertaining to the number sys- 
tem with a radix of eight. 
Octal Debugging Technique (ODT), 
PAL-D, 9-150 
command summary, 9-151 
OLD card, EduSystem 30, 7-23, 

7-26 
OLD command, BASIC 
EduSystem 15, 4-5 
EduSystem 25, 6-14 
EduSystem 30, 7-16, 7-17 
EduSystem 50, 9^23 
ON GOSUB statement 
EduSystem 20, 5-10, 8-3 
EduSystem 25, 6-6 
ON GOTO statement 
EduSystem 20, 5-10, 8-3 
EduSystem 25, 6-6 
EduSystem 50, 9-24 
Open a File (OPEN), EduSystem 

50, 9-187 
OPEN FOR INPUT statement, Edu- 
System 25, 6-20 
OPEN FOR OUTPUT statement, 

EduSystem 25, 6-18 
OPEN statement, EduSystem 50, 

9-40, 9^44 
Operand: 

1. A quantity which is affected, 
manipulated, or operated upon. 

2. The address, or symbolic 
name, portion of an assembly 
language instruction. 
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Operating instructions 
EduSystem 5, 2-6 
EduSystem 10, 3-8 
EduSystem 15, 4-16 
EduSystem 20, 5-16 
EduSystem 25, 6-31 
EduSystem 30, 7-38 
EduSystem 40, 8-16 
Operators, FORTRAN-D arithmetic, 

9-105 
OPR card, 7-27 
OR with Switch Register (OSR), 

9-198 
Optional hardware, EduSystem 30, 

7-50 
Output: Information transferred 
from the internal storage of a 
computer to output devices or ex- 
ternal storage. 
Output formats, FORTRAN-D, 9- 

126 
Output operations, FOCAL, 9-86 



PAL-D Assembler, 9-137 
calling, 9-137 
error diagnostics, 9-142 
Paper tapes 
reading FOCAL, 9-88 
storing/ reloading programs 
EduSystem 5, 2-9 
EduSystem 10, 3-11 
EduSystem 15,4-25 
EduSystem 20, 5-21 
EduSystem 25, 6-39 
EduSystem 30, 7-14 
EduSystem 50, 9-47 
Paper tape to disk transfers, 9-157 
PASSWORD command 
EduSystem 15, 4-5 
EduSystem 30, 7-15 
PAUSE statement, FORTRAN-D, 

9-112 
PDP-8 compatibility, EduSystem 50, 

9-200 
Peripheral equipment: In a data 
processing system, any unit of 
equipment distinct from the cen- 
tral processing unit which may 
provide the system with outside 



storage or communication, e.g., 
DECtape. 
Peripheral Interchange Program 
(PIP), 9-157 
option summary, 9-161 
PIP: The OS/ 8 Peripheral Inter- 
change Program used to transfer 
files between devices, merge and 
delete files, and list, zero, and 
compress directories. 
Possibility set, 1-92 
Pound sign ( £. ) feature 
EduSystem 15, 4-11 
EduSystem 30, 7-10, 8-4 
Printing messages, BASIC, 1-17 
PRINT statement, BASIC, 1-15, 1- 

11,1-12 ' 

PRINT statements, single character 
EduSystem 5, 2-2 
EduSystem 10, 3-2 
PRINT # statement, EduSystem 25. 

6-19 
PRIVILEGE command 
EduSystem 15, 4-4 
EduSystem 30, 7-15 
Privileged control commands 
EduSystem 15,4-4 
EduSystem 30, 7-14, 8-3 
Program: The complete sequence of 
instructions and routines necessary 
to solve a problem. 
Program and system status, Edu- 
System 50, 9-197 
Program control, EduSystem 50, 9- 

195 
Program editing, 
EduSystem 5, 2-5 
EduSystem 10, 3-6 
EduSystem 15,4-11 
EduSystem 20, 5-14 
EduSystem 25, 6-28 
EduSystem 30, 7-17 
Program length, FOCAL 9-80 
Program loading errors 
EduSystem 15,4-12 
EduSystem 30, 7-35 
Program logic errors 
EduSystem 15, 4-15 
EduSystem 30, 7-37, 8-15 
Program storage/ retrieval, EduSys- 
tem 25, 6-13 
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Program storing procedures, Edu- 
System 20, 5-21 

Program — see also entries under spe- 
cific program names 

Project-Programmer numbers, Edu- 
System 50, 9-28, 9-206 

Protect a File (PROT), 9-186 

Protecting DECtape files, EduSys- 
tem 25, 6-39 

Protection codes, EduSystem 50, 9- 
171 

Public data files, EduSystem 25, 
6-22 

Public library programs, EduSystem 
25, 6-17, 6-37, 6-38 

Punched card input, 7-51 

Punch String (PST), 9-194 

PUT statement, EduSystem 50, 9-40 



Quantum Synchronization (SYN), 
9-200 

Queue: A waiting list. In time- 
sharing, the Monitor maintains a 
queue of user programs waiting 
for processing time. 

QUIT command, FOCAL, 9-72 

R 

Radix: The base of a number sys- 
tem, the number of digit symbols 
required by a number system. 

RANDOMIZE statement 
EduSystem 15, 4-3 
EduSystem' 20, 5-11 
EduSystem 25, 6-7 
EduSystem 30, 7-5 

Random number function (FRAN), 
FOCAL, 9-85 

Random numbers, BASIC, 1-89 

Reader Fetch Character (REC), 9- 
194 

Reader/punch assignments, high 
speed, 9-158 

Read File (RFILE), 9-188 

Read-in Mode (RIM) Loader, A-l 

Read Keyboard Buffer (KRB), 9- 
181 

Read Reader Buffer (RRB), 9-191 

Read Reader String (RRS>, 9-193 

READ statement 



BASIC, 1-32 
FORTRAN-D, 9-121 
Read Status Register B (DTRB), 9- 

195 
Record: A collection of related items 

of data treated as a unit. 
RECORD statement, EduSystem 50, 

9-39, 9-43 
Reduce a File (RED), 9-186 
RELEASE command, EduSystem 

50, 9-15 
Release Device (REL), 9-191 
Reloading functions 
EduSystem 5, 2-9 
EduSystem 10, 3-11 
REMARK statement, BASIC, 1-113 
Rename a File (REN), 9-186 
RENAME command, EduSystem 25, 

6-14 
RESEQUENCE command, EduSys- 
tem 30, 7-18 
Resource sharing, 9-12 
Restarting system 
EduSystem 5, 2-9 
EduSystem 10/3-11 
EduSystem 15, 4-25 
EduSystem 20, 5-21 
EduSystem 25, 6-40 
EduSystem 30, 7-48 
RESTORE statement 
BASIC, 1-36 
EduSystem 50, 9-30 
Restricted accounts, EduSystem 50, 

9-28 
Return Clock Rate (RCR), 9-199 
RETURN command, FOCAL, 9-72 
RETURN key on Teletype, 1-5, 1-6 
RETURN statement, BASIC, 1-105 
RIM loader, A-l 
RND function, BASIC, 1-91 
Rounding numbers, 1-128 
Routine: A set of instructions ar- 
ranged in proper sequence to 
cause the computer to perform a 
desired task. A program or sub- 
program. 
Run: A single continuous execution 

of a program. 
R (RUN) command, EduSystem 50, 

9-177 
RUN card, 7-24, 7-26 
RUN command, BASIC, 1-5 
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RUN NH command 
EduSystem 15, 4-4 
EduSystem 30, 7-13 



SAVE command, BASIC 

EduSystem 15, 4-5 

EduSystem 25, 6-14 

EduSystem 30, 7-16 

EduSystem 50, 9-27 
SAVE command, EduSystem 50 

Monitor, 9-174 
SAVE format file transfers, 9-160 
Saving disk files on DECtape with 

COPY program, 9163 
Scientific notation, 1-16 
SCRATCH command, BASIC, 1-5 
Segment Count (SEGS), 9-199 
Segment Size (SIZE), 9-198 
Segment: 

1. That part of a long program 
which may be resident in core 
at any one time. 

2. To divide a program into two 
or more segments or to store 
part of a routine on an ex- 
ternal storage device to be 
brought into core as needed. 

3. A unit of disk storage under 
EduSystem 50. 

Semicolon usage in BASIC, 1-14 
Send a String (SAS), 9-181 
Set Buffer Control (SBC), 9-193 
SET command, FOCAL, 9-68 
Set Error Address (SEA), 9-196 
Set Keyboard Break (KSB), 9-182 
Set Restart Address (SRA), 9-196 
Set Switch Register (SSW), 9-198 
Set Time (STM), 9-200 
SHIFT keys, Teletype, 1-4 
Sign part function (FSGN), FO- 
CAL, 9-85 
Sign (SGN) function, BASIC 1-129 
Simulate: To represent the function 
of a device, system, or program 
with another device, system, or 
program. 
SINE function (FSIN), FOCAL, 

9-83 
Single character PRINT statement 
EduSystem 5, 2-2 
EduSystem 10,3-2 



Skin on EduSystem 50 (TSS), 9-200 

Skip on Flags (DTSF), 9-195 

Skip on Keyboard Flag (KSF), 9- 

181 
Skip on Punch Flag (PSF), 9-193 
Skip on Reader Flag (RSF), 9-191 
SLEEP statement, EduSystem 50, 9- 

25 
Software: The collection of pro- 
grams and routines associated 
with a computer. 
Source language: see Language, 

source. 
Source program: A computer pro- 
gram written in a source language. 
Source program restrictions, FOR- 

TRAN-D, 9-131 
Square root (SQR) function, BASIC, 

1-61 
Square root function (FSQT), FO- 
CAL, 9-85 
STACK command, 7-32, 7-33 
Standard notation, 1-16 
Starting EduSystem 40, 8-20 
Statement: An expression or instruc- 
tion in a source language such as 
BASIC. 
Statement numbers, FORTRAN-D, 

9-98 
Statement summaries 
BASIC, 1-134 to 1-143 
EduSystem 5, 2-11 
EduSystem 10, 3-5 
EduSystem 15, 4-26 
EduSystem 20, 5-2 
EduSystem 25, 6-23 
EduSystem 30, 7-2 
EduSystem 40, 8-4 
EduSystem 50, 9-56 i 
FORTRAN, 9-99, 9-132 
see also BASIC statements 

FORTRAN-D statements 
STEP clause, BASIC, 1-50 
String: A connected sequence of en- 
tities such as characters in a com- 
mand string. 
String capability, EduSystem 30, 7-8 
String functions, EduSystem 25, 6-1 1 
Strings in BASIC, EduSystem 50, 9- 

29 ; • . • 

String variables, EduSystem 25, 6-8 
STOP statement 
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BASIC, 1-105 
FORTRAN-D, 9-111 

Storage allocation: The assignment 
of blocks of data and instructions 
to specified blocks of storage. 

Storage allocation, EduSystem 50, 
9-205 

Storage, calculating available, Edu- 
System 30, 7-52 

Storage capability: The amount of 
data that can be contained in a 
storage device. 

Storage device: A device in which 
data can be entered, retained, and 
retrieved. 

Stored programs, EduSystem 30, 7- 
26 

Store: To enter data into a storage, 
device. 

Subroutine: A sequence of program 
instructions that must be called 
by another instruction in the pro- 
gram. 

Subroutines, BASIC, 1-105 

Subscript: A number or set of num- 
bers used to specify a particular 
item in an array. 

Subscripted variables 
BASIC, 1-97 
EduSystem 20, 5-7 
FOCAL, 9-73 

Subscript size limits, 8r3 

Subscripts, variable, BASIC, 1-102 

Substatement feature, FORTRAN-D, 
9-129 

Swapping: In EduSystem 50's time- 
sharing environment, the action 
of either temporarily bringing a 
user program into core or storing 
it on the system device. 

Symbolic Editor: An EduSystem 50 
library program which helps users 
in the preparation and modifica- 
tion of source language programs 
by adding, changing, or deleting 
lines of text. 

Symbolic Editor, EduSystem 50, 9- 
145 
command summary, 9-147 
operations summary, 9-146 

Symbol list, EduSystem 50, 9-139 

Symbols, Teletype, 1-3 



Symbol table: A table in which sym- 
bols and their corresponding 
values are recorded. 
System: A combination of software 
and hardware which performs spe- 
cific processing operations. 
System building dialog 
EduSystem 15, 4-19 
EduSystem 30, 7-39 
SYSTAT command, EduSystem 50, 

9-12 
SYSTAT, 9-154 
System components 
EduSystem 5, 2-2 
EduSystem 10, 3-1 
EduSystem 15, 4-1 
EduSystem 20, 5-1 
EduSystem 25, 6-1 
EduSystem 30, 7-1 
EduSystem 40, 8-1 
System configuration, EduSystem 50, 

9-3 
System dialog 
EduSystem 20, 5-17 
EduSystem 25, 6-32 
System expansion 
EduSystem 5, 2-2 
EduSystem 10, 3-2 
EduSystem 20, 5-2 
EduSystem 25, 6-2 
EduSystem 30, 7-2 
EduSystem 40, 8-2 
EduSystem 50, 9-2 
System library program control, 

EduSystem 50, 9-10 
System library programs EduSystem 

50, 9-17, 9-20 
System reconfiguration, 
EduSystem 20, 5-21 
EduSystem 25, 6-40 
System status reports, EduSystem 50, 

9-12 
System Status (SYSTAT) program, 

9-154 
System storage, EduSystem 30, 7-15 



TAB function, BASIC, 1-86 
Table: A collection of data stored 

for ease of reference, generally as 

an array. 
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TALK command, EduSystem 50, 9- 
11 

TAPE command 
EduSystem 15, 4-26 
EduSystem 30, 7-14 

TD8E DECtape unit loading, Edu- 
System 15, 4-17 

Teacher's Guide, EduTest, D-l 

Teletype, paper tape reader, 4-26 

Teletype keyboard, 1-3 

Terminal: A peripheral device in a 
system through which data can 
enter or leave the computer. 

Terminal extensions, 6-35 

Time-of-Day (TOD), 9-199 

Timesharing: A method of allocat- 
ing central processor time and 
other computer resources to mul- 
tiple users so that the computer, 
in effect, processes a number of 
programs simultaneously. EduSys- 
tem 50 is a timesharing system. 

Toggle: To use switches to enter 
data into the computer memory. 

Trace feature, FOCAL, 9-82 

Tracing 
a BASIC loop, 1-41 
a BASIC program, 1-22 

Translate: To convert from one lan- 
guage to another. 

Truncation: The reduction of pre- 
cision by dropping one or more 
of the least significant digits; e.g., 
3.141592 truncated to four deci- 
mal digits is 3.141. 

Truncation function (FIX) 
EduSystem 20, 5-9 
EduSystem 25, 6-8 
EduSystem 50, 9-24 

TYPE command, FOCAL, 9-66 

TYPE statement, FORTRAN-D, 9- 
120 

U 

Unduplex (UND), 9-183 
UNSAVE command, 

EduSystem 15, 4-5 

EduSystem 25, 6-16 



EduSystem 30, 7-14 
EduSystem 50, 9-56 
User files, EduSystem 50, 9-2 
User program control, EduSystem 

50, 9-168 
User: Programmer or operator of 

a computer. 
User programs, EduSystem 50, 9-2 

saving and restoring, 9-174 
User Run Time (URT), 9-199 
User (USE), 9-199 
Utility programs, EduSystem 50, 9- 
145 



Variable: A symbol whose value 
changes during execution of a 
program. 
Variable expressions, BASIC, 1-24 
Variable FOR statement, BASIC, 

1-52 
Variable specification in I/O state- 
ments, FORTRAN-D, 9-121 
Variable subscripts, BASIC, 1-102 
Variables, BASIC, 1-20 
Variables, subscripted 
BASIC, 1-97 
EduSystem 20, 5-7 
FOCAL, 9-23 
FORTRAN-D, 9-102 

W 

Who (WHO), 9-199 

Word: In the PDP-8, a 12-bit unit 
of data which may be stored in 
one addressable location. 

Write: To transfer information from 
core memory to a peripheral de- 
vice or to auxiliary storage. 

WRITE ALL command, FOCAL, 
9-75 

WRITE command, FOCAL, 9-74, 
9-75 

Write File (WFILE), 9-188 

WRITE statement 
EduSystem 15,4-8 
EduSystem 30, 7-7 
FORTRAN-D, 9-121 
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